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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THIS DCLT (DATA COMMUNICATION LINK TEST) PROGRAM IS MEANT TO 
PROVIDE mite SERVICE WITH A TOOL TO MAINTAIN DUP-11 COMMUNICATI 

S. THIS PROGRAM ALLOWS THE DUP-11 a COMMUNICATE WITH OTHER 
SYN YNCHRONOUS CINCLUDING DDCMP) DEVICES ON POINT TO POINT OR MULTIDROP 
NETWORKS. THIS DCLT PROGRAM WILL PROVIDE THE COVERAGE NECESSARY 
ie ae ok Y bg nt TO THE COMPUTER EQUIPMENT, THE COMMUNICATION 


THIS DIAGNOSTIC HAS GEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
3 INTERFACE TO THE OPERA ats +m ro THE SOFTWARE ENVIRONMENT. 
HIS PROGRAM CAN BE USED WITH oe APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION Chi E RUNTIME SERVICES, REFER 
TO THE XXDP+ seg — (CHQUS?. SEQ NOHERE ? IS REV. LEVEL OF 
THE MANUAL). THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


‘ 


1.2 SYSTEM REQUIREMENTS 


IN ORDER TO RUN THE DUP DCLT PROGRAM, THE FOLLOWING 
MINIMUM HARDWARE IS REQUIRED: 


P-11 C 
- = RINIMUM OF > eee OF MEMORY 


~ A WORKING CL 
= as eS TERMINAL 
= XXDP+ SUPPORTED Ds MEDIA 
- DUP11~DA: 67867 
BCO5C-2 VCABLE 
BC -1D_ CABLE 
HS2 TEST CONNECTOR 


1.3 RELATED DOCUMENTS AND STANDARDS 


- XXDP+ a S MANUAL (CHQUS?.SEQ WHERE ? IS THE REV. LEVEL OF 
THE MANUAL = "‘C’’ IS THE CURRENT REV.). 
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SEQ 6 


1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


THE GOAL OF THE DATA COMM. LINK TEST PROGRAM IS TO TEST THE 
COMMUNICATION LINK ae THEREFORE ASSUMES THAT THE CPU'S, 
CLOCKS, DUP=11 AND THE DEVICES AT THE OTHER END OF THE LINK 
HAVE ALREADY BEEN TESTED. 


IF A WORK ING CLOCK IS NOT FOUND, THE PROGRAM WILL CONTINUE 
BUT ANY OF THE PROGRAM THAT TIMES THE DEVICE WILL HANG IF THE 
DEVICE TIMES OUT. ALSO, We EVENT LOG WILL CONTAIN A ZERO EVENT 
TIME FOR ALL EVENTS LOGGED. 


-IT_IS_NOT THE INTENTION OF A DATA COMM. LINK_TEST PROGRAM TO 
TEST THE DUP=11°S, BUT TO TEST THE COMMUNICATION LINK TO 
WHICH THEY ARE CONNECTED. 


SOME OF THE DIAGNOSTICS THAT COULD BE RUN IF THE DUP-11 
LOOKS BAD: 


DZDPEXX CONFIDENCE TEST 

DZDPBXX BASIC TRANSMITTER TESTS 

Bipesee a prs s; CONTROL AND INTERRUPT TEST 
DZDPDXX DATA AND FUNCTION TESTS 

DXDPBXX DECX11 MODULE 


XX= LATEST REVISION 


1.5 ASSUMPTIONS = RESTRICTIONS 


IT IS ASSUMED THAT THE COMMUNICATIONS DEVICE HAS 

BEEN TESTED yey THE PREREQUISTE ratite pont ii THE OPERAT 

SHOULD HAVE READ THE USER ag ge ATION PORTION OF THE LISTING 

TO FAMILIARIZE HIMSELF WITH THE COMMANDS AND CAPABILITIES AVAILABLE 
UNDER THE DIAGNOSTIC SUPERVISOR AND DCLT. 


THIS DIAGNOSTIC DOES NOT RUN THE DUP-11 IN BIT STUFF MODE. 
IT IS ASSUMED THAT IF THE LINK WORKS IN CHAR MODE THE LINK 
WILL WORK IN BIT STUFF MODE. 


THE DUP=11 IS NOT A DMA DEVICE AND THUS MUST RELY ON THE 
SOFTWARE FOR SERVICE. 
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2.0 OPERATING INSTRUCTIONS 
THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME peers 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 
2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE A pee gh are SERVICES 
OMMANDS AND GIVES A VERY 


(SUPERVISOR). THIS SECTION LISTS THE C 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 





COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE at ttet tek WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 
PROCEED CONTINUE PROM an ERROR HALT 

EXIT RETURN :, XXDP+ MONITOR (XXDP+ gqriir ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 


pra een 4 TO BE_ACTIVE AT START TIME 
TE A_UNI 


DROP DEACTIVA 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTION 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


COMMAND CAN BE RECOGNIZED BY THE FIRST THREE A palteaaa so 
YOU MAY, FOR EXAMPLE, TYPE ‘‘STA’’ INSTEAD OF ‘'START’ 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES .* ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMAN L_ OF a “y LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EAC H, k 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD"’. 


SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
LIST IS A STRING 


THE LIST. 1S I 
NUMBERS, FOR EXAMPLE - Me oF Sb 10 
THIS 118i WILL CAUSE TESTS 1,5,7,8,9,10 TO 


UN. L 
/PASS :DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS in sects IFIED_FLAGS. FLAGS ARE DESCRIBED 


ECTION 35. 
/EOP:DDDDD REPORT END OF PASS MESSAGE wre EVERY 
DDDDD PASSES ONLY. (DDDDD = 0 64000) 
/UNITS:LIST SL gh al on THOSE UNITS SPECIFI D 
IN THE LIST. bAST.E EXAMPLE = /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 
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EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-5/PASS : 1000/E0P: 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) ie 1 THROUGH 5 WILL BE 


EXECUTED, 2) ALL UNITS WILL Ma dd 1000 TIMES AND 3) THE - OF 
suit MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. 


ITCH CAN BE RECOGNIZED BY THE FIRST THREE et Tes. “you MAY, 


OR EXAMPLE, TYPE °'/TES:1=5°* INSTEAD OF *'/TESTS:1 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS €EOP UNITS 


START x X xX x K 
RESTART X x x x x 
CONTINUE xX K x 
PROCEED x 
ROP ¥ 
D x 
PRINT 
DISPLAY x 
FLAGS 
ZFLAGS s 
EXIT 
2.3 FLAGS 
FLAGS ARE USED TO SET a CERTAIN OPERATIONAL ect ipo SUCH AS 
ING ONE FLAGS ARE CLEAR T STARTUP AND REMAIN 


LOOP E ED 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO as aa A 3 START COMMAND UNLESS SET owe THE 


LAGS COMMAND 7 A CLEAR 
ALL FLAGS. ar THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; oe REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH 


FLAG EFFECT 

HOE HALT ON ERROR = CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBE* INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LeVEL (FIRST LEVEL CONTAINS 
ERROR NUMBER, PC, TEST UNIT) 

IXE® INHIBIT “EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO’ S) 

PRI DIRECT MESSAGES: TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE BELL" ON ERROR 

UAM (NO MANUAL INTERVENTION) 


TTENDED MODE 
ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


SEQ 8 
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SEQ 9 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT) 
*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE in XXDP+ USER*S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR E LE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A ‘BELL*’ ON ERROR, YOU MAY Use. THE FOLLOWING STRING: 


/FLAGS :LOE : IER:BOE 


2.4 HARDWARE QUESTIONS 


WHEN A ay) IS STARTED, THE apg by ea thts WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING ‘CHANGE HW (L) ? 

YOU MUST ANSWER *'Y’" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN ‘PRELOADED 7 y! SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER’ WHEN YOU ANSWER THIS 
QUESTION WITH A *'Y’*, THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). 


THE DUP=-11 DATA COMM. LINK TEST PROGRAM WILL NOT USE MORE THAN 
in He FOR THE DUP-11 , THE HARDWARE INFORMATION REQUESTED 


# UNITS (D) ? 1<CR> 


UNIT 0 

FULL DUPLEX OPERATION : (L) Y ? 

DEVICE CSR ADDRESS : (0) 160170_2 
INTERRUPT VECTOR ADDRESS: (0) 300 ? 
REMOTE NODE “ITEP : ? 


IS THIS A MULTIPOINT NETWORK: (L) N ? 


THE FULL DUPLEX QUESTION SHOULD BE ANSWERED "'Y'' WHEN USING 
FULL DUPLEX MODEMS,OR NULL MODEM, OR MODEM ELIMINAZORS. 
ANSWER ‘WN’ FOR HALF DUPLEX MODEMS. 


REMOTE NODE ITEP SHOULD BE ANSWERED ‘'Y"* IF OTHER NODE 
IS RUNNING SOFTWARE THAT IS USING “‘ITEP’* FORMATS(I.E. 
PDP-11 RUNNING ITEP). 


IF OTHER NODE IS USING ITEP, THE nants “MULTIPOINT 
NETWORK" QUESTION WILL NOT APPEAR 
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4 TO THE ‘MULTIPOINT NETWORK’* QUESTION, YOU RESPOND WITH ‘‘Y’’ 
ADDRESS THIS STATION: (D) 1 ? 


ie BE DISPLAYED. INPUT THE DECIMAL TRIBUTARY ADDRESS (1-255) 
OF THIS DUP-11. 


2.5 DATA COMM. LINK TEST COMMANDS 


THE *DCLT>** COMMAND LEVEL FOLLOWS THE ANSWERING OF THE HARDWARE P-TABLE 
ry oF THESE COMMANDS CAN BE TYPED WHEN THE ‘DCLT> (A) ?°' PROMPT 


MESSAGE COMMANDS AVAILABLE: 


YOU ONLY HAVE TO TYPE ENOUGH CHARACTERS TO UNIQUELY SPECIFY A COMMAND. 


THE COMMAND LINE is INTERPRETED FROM LEFT TO RIGHT. ee oer 
IF A wae A HE COMMAND Li NE IS RELATED OR EFFECTS A IFIER 
TO THE LEFT ON THE COMMAND LINE like eae FARTHEREST 10 THE RIGHT 


TAKES eer hook ee IT 1S_INTERPR LAST. (I.E. IF /CHECK..... 
---/NOCHECK APPEAR ON THE SAME LINES ENOCHECK WILL BE INDICATED IN THE 
PARAMETERS “WORD. 


REFER TO SECTION 6.0 FOR A DESCRIPTION OF THE DIFFERENT MODES OF 
OPERATION AND THE TYPES OF MESSAGES AVAILABLE. 


2.5.1 MESSAGE COMMANDS 


COMMAND DESCRIPTION 
CLEAR EXPECTLIST cEMeES THE EXPECTLIST  (00°S) 
AND THEN PUTS DEFAULT ITEP MSG 
IN SO NOT REALLY EMPTY 


CLEAR TRANSMITLIST FILLS _TRANSMITLIST (000'S 
AND THEN PUTS DEFAULT ep MSG 
IN SO NOT REALLY EMPTY 





SEQ 10 
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THE EXPECTED LIST 
WHERE: ‘‘TYPE’’ IS: 


=ALPHA 
="A-2,0-9,SPACES OR TABS IN QUOTES" 


WHERE THE OPTIONAL ‘‘QUAL"’ IS: 
/SIZE=NNN . WAKE ont MESSAGE "'NNN’’ BYTES 


OPERATOR 

/COPY=NN COPY ris MESSAGE INTO THE 
BUFFER eur TIMES (DEFAULT 
IS ° = PUT THE MESSAGE IN 
ONLY ONCE) 


NOTE: SET’ , +44 MESSAGES TO THE LIST IN THE ORDER THEY'RE 

DEF I a IS_A DECIMAL NUMBER. THE FIRST SET 
OV ERUR lies T HE DEFAULT ITEP MESSAGE PLACED THERE BY 
INITIALIZATION OR A *“‘CLEAR’* COMMAND. 
SEE SECTION 6.2 FOR A DESCRIPTION OF THE PRE-DEF INED 
MESSAGES THAT ARE AVAILABLE. (ZEROS,ONES ...) 

SET TRANSMI TMSG=TYPE/QUAL ead A vty it PUT ON 

(SEE DESCRIPT FOR SET EXP) 


SET EXPEC T=TRANSMIT MAKES A COPY OF THE TRANSMIT 
LIST IN THE EXPECT LIST. 


SHOW EXPECTLIST LISTS THE MESSAGE SIZE AND TYPE 
BREST’ L MESSAGES IN THE 


SHOW TRANSMITLIST Lists THE MESSAGE SIZE AND TYPE 
FOR THE i! Cae IN THE 


TRANSMIT L 


| 
SET EXPEC TMSG=TYPE/QUAL DEFINE A MESSAGE TO BE PUT ON 
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2.5.2 STATISTICAL COMMANDS 


DUMP SSSSSS-EEEEEE/B 


WHERE *'/8'* IS OPTIONAL: 
DEFAULT IS PRINT WORDS 
*'/B"* CAUSES PRINT BYTES 


DESCRIPTION 


TAKES THE OPERATOR TO THE 
REPORT LEVEL 'RPT>*. FROM 
HERE YOU CAN EXAMINE THE: 
EVENT LOG OR IF ‘'/PROTOCOL 
IS SELECTED, THE DDCMP 
STATISTICAL AND ERROR COUNTERS. 


PRINTS THE poy aT oo 
MEMORY LOCA 


THE START ADDRESS AND 
““-EEEEE’’ IS THE END ADDRESS. 


"“EEEEEE’’ IS NOT SPECIFIED 
THEN THE CONTENTS - ‘SSSSSS 
IS PRINTED IN WORD FORMAT. 

IS PRINTED IN WORD FORMAT. 


NOTE: THE DUMP COMMAND IS USEFUL FOR EXAMINING 
MESSAGE DATA. STARTING ADDRESSES CAN 
BE FOUND BY LOOKING IN THE EVENT LOG. 
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2.5.3 RUN COMMAND 


COMMAND 


RUN MODE=MTYPE/QUAL 


DESCRIPTION 


STARTS DCLT EXECUTING IN THE 
MODE SPECIFIED 


NOTe: Mo Tie IS NOT DEFAULT, A MODE=MTYPE MUST BE TYPED 


H TIME A RUN IS TYPED 


WHERE yD one IS ANY ONE OF THE FOLLOWING: 


(FORCES /NOECHO ,NO LOOPING) 
NO LOOP 


=PASSIVE (FORCES 

=RECEIVE (FORCES /NOECHO ,NO LOOPING) 

=LISTEN (FORCES /NOECHO ,NO LOOPING, /NOCHECK) 
=TRANSMIT (FORCES /NOECHO .NO LOOPING, /NOCHECK) 
=TALK (FORCES /NOECHO {NO LOOPING, /NOCHECK) 


=DOWNLINELOAD (DOWN-LINE-LOADING IS NOT SUPPORTED 
FOR DUP=11 TO DUP=11 LINKS). 


(FORCING NO LOOPING MEANS IT MUST BE 
SPECIFIED AS A QUALIFIER ANY TIME ITS 
DESIRED, THERE IS NO DEFAULT) 


AND OPTIONAL ‘‘QUAL"’ IS ANY COMBINATION OF THE FOLLOWING: 
/CHECK/NOCHE CK ENABLES/DISABLES CHECKING OF RECEIVED 


DATA AGAINST THE EXPECTED DATA 


NOTE: IF BOTH NODES IN ACTIVE AND *'/NOCHECK’’ IS USED, 
~~ END-OF=PASS IS DEFINED AS RECEIVING 1 MESSAGE 
AND “COMPLETING THE TRANSMIT LIST. WITH NO DATA 
dy oy THERE IS NO WAY FOR DCLT T 
Y MESSAGES IT SHOULD EXPECT TO RECEIVE. 


/STATUS/NOSTATUS ENABLES/DISABLES PRINTING OF PROGRAM 


STATUS MESSAGES TO THE OPERATOR 


/ECHO/NOE CHO ENABLES/DISABLES THE RETRANSMIS 


SION OF 
THE DATA RECEIVED IN PASSIVE MODE. 
(IGNORED IN MODES OTHER THAN PASSIVE) 


/MODEM/NOMODEM/ eteateag =: THE REPORTING OF MODEM STATUS 


/LOOP=LTYPE SPECIFIES wu 


NTERRUPT CHANGES. 


SEQ 13 
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“LTYPE’’ IS: 
=INTERNALTTL LOOPS DATA INTERNAL TO USYNRT 


=CABLE USE THIS FOR TESTING WITH H325 
TURNARROUND CONNECTOR ON END OF CABLE. 


NOTE: THIS SKIPS OVER THE CHECK 
FOR MODEM READY WHEN DTR IS SET. 


=LOCALMODEM NOT SUPPORTED BY DUP-11 
=REMOTEMODEM 7 os 


/PASS=NN SPECIFIES NUMBER OF ITERATIONS TO MAKE BEFORE 
END-OF=PASS. DEFAULT VALUE OF 1 
WILL BE USED ON ANY RUN THAT A /PASS=N 
IS O THE 'R OMMAND . 


NOT ADDE ‘Cc 
F A ''=1"' IS TYPED THEN THE PROGRAM 
RUN UNTIL A “C IS TYPED 


/PROTOCOL ENABLES SUBSET OF DDCMP PROTOCOL= THE DUP-11 
CAN OMMUNICATE WITH OTHER ‘INTELLIGENT* 
SYNCHRONOUS DEVICES THAT SUPPORT DDCMP IN 
THEIR MICROCODE. (DMR,DMC.DMV OR DMP). 


THIS SWITCH IS NOT SUPPORTED BY ALL DCLT’S. 
/NOPROTOCOL reat PROTOCOL= THE DUP-11 CAN COMMUNICATE 


Y WITH ANOTHER DUP-11 OR DPV-11 RUNNING 
DCLT OR ITEP. 


NOTE: SEE SECTION 6.1 FOR A Opec ice 
wm--= OF THE "RUN MODES*’ AND MODES** 
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SEQ 15 


2.5.4 DEFAULTS 


IF NO “Si S TRANS TAS THE DEFAULT Is ar AS | F TYPED: 


OPY= 

OPER. SPEC'D = /SIZE=LENGTH-OF -TEXT-TYPED-BE TWEEN-QUOTES/COPY=0 
FOR THE RUN COMMAND THE DEFAULTS ARE: 

RUN MODE=ACTIVE/NOSTATUS/CHECK/NOE CHO/NOMODEM/PASS=1/NOPROTOCOL 

NOTE: nag 2 Pog fb IS NOT gin MG A MODE=MTYPE MUST BE TYPED 

woe-= EACH TIME A RUN IS TYPED 
IF THE DCLT PROGRAM IS RUN IN UNATTENDED MODE (UAM FLAG=1 OR CHAINED), 
THE DEFAULTS ARE AS IF THESE SETUP AND RUN COMMANDS WERE TYPED: 

SET TRANS=ITEP 

ra EXPECT=I 


TEP 
UN MODE=ACTIVE/LOOP=INTERNAL /NOSTAT/NOECHO/NOMODEM/ CHE CK 
/PASS=1/NOPROTOCOL | 


OTHER NOTE. . 

aC ALWAYS ry. YOU ie. sites (THE SUPERVISOR) 
<CR> IS SEEN AS_A COMMAND TERMINAT 

**RUBOUT** DELETE LAST CHAR. OED IN COMMAND STRING 
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2.5.5 PRINT COMMAND 





D2 
SEQ 16 
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4 PRINT COMMAND TAKES YOU TO THE REPORT LEVEL ‘RPT>’. 


HE COMMANDS AVAILABLE IN RPT> ARE ... 
COMMAND DESCRIPTION 
HELP OR ? PRINTS HELP INFORMATION FOR RPT> 
EXIT RETURNS YOU TO THE LEVEL THAT YOU 
ENTERED FROM. (DCLT> OR DR>) 
LOG PRINTS THE DCLT EVENT LOG 
COUNTERS/FULL PRINTS THE ENTIRE DDCMP STATISTICAL AND ERROR 
LOG. SEE SECTION 4. 
COUNTERS/ERRORS PRINTS ONLY THE DDCMP ERROR LOCATIONS OF THE LOG. 
COUNTERS/OFFSET=NN PRINTS A SINGLE LOCATION OF THE LOG AS 


2.5.6 MISC COMMANDS 


SPECIFIED BY THE OCTAL WORD OFFSET VALUE(NN). 


NOTE:: THE DDCMP COUNTERS WILL BE VALID ONLY 
WITH PROTOCOL ENABLED(/PROTOCOL). 


COMMANDS DESCRIPTION 

EXIT FROM THE DCLT> LEVEL RETURNS YOU 
TO DR> 

HELP OR ? PRINTS HELP INFORMATION 


2.6 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 





1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE ‘'R NAME*’, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE *‘START’’ 
5. ANSWER THE “CHANGE HW’ QUESTION WITH ‘*Y'* 
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6. ANSWER ALL THE HARDWARE QUESTIONS. THE NUMBER OF UNITS 
THAT DCLT CAN USE IS ALWAYS ‘l"’. 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS. THESE DEFAULTS ARE DESCRIBED IN SECTION 2.3. 


7. AFTER THE “DCLT> (A) 2° PROMPT, TYPE 
“RUN MODE=ACTIVE<CR>"* 


wy YOU FOLLOW THIS PROCEDURE Mg WILL BE USING THE ae TRANSMIT 
AND EXPECTED MESSAGES. THE DEFAULT PASS COUNT AND "'RUN’’ QUALIFIERS 
ARE ALSO BEING USED. THESE BEPAULTS ARE DESCRIBED IN SECTION 2.5.3. 








rs 


SEQ 18 
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3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF 7 ko MESSAGES THAT MAY BE ISSUED BY 

A_ DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR ‘e 
ARE ALWAYS PRINTED UNLESS THE = 4 IS SET (SECTION 2. 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC :XXXXXX 
ERROR MESSAGE 


o WHERE ; ~ = DIAGNOSTIC NAME 
= ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR R 
UNIT NUMBER = 0 = N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION. ABOUT, THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "IER" OR ‘‘IBE" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "IER", “IBE'' OR "IXE'’ FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 


3.2.1 COMMAND LINE INTERPRETER ERRORS 
ERROR MESSAGE: MEANING 


?ILL CMD-BAD SYNTX? A_COMMAND WITH AN ILLEGAL CHAR WAS 
TYPED = RETYPE THE C E 
VALID COMMANDS AND THEIR SYNTAX ARE 

SHOWN IN SECTION 2.5. 


?INCMPLTE CMD? @ Seeusae PART OF A COMMAND WAS LEFT 





2?NUM TOO B1G? THE VALUE OF A NUMERIC STRING IN THE 
COmUanD 7p ne WAS Laer? THAN 65535 
OR 177777 OCTAL. ( > 16 BITS). 


?BAD RADIX? A _*8"* OR “9° WAS TYPED WHEN AN OCTAL 
STRING aT EXPECTED, PROBABLY OCCURRED 
WHEN TYP COMMAND WHERE 
OCTAL ADDRESSES ARE EXPECTED. 
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SEQ 19 


?"LOOP"* VALID ONLY IN ACTIVE? THE "*/LOOP=..°* SWITCH WAS TYPED IN A 
a ~_— T THE MODE WAS 


BU 
ACTIVE. MAINTENANCE LOOP IS ONLY 
PossiaL LE IF THE MODE OF OPERATION IS 


?°ECHO"’ VALID ONLY IN PASSIVE? THE ‘‘/ECHO’’ SWITCH WAS TYPED IN A 
RUN COMMAND BUT THE MODE NO 


WAS NOT SET 
TO PASSIVE. ECHOING OF RECEIVED DATA 
IS ONLY POSSIBLE I OF 
OPERATION IS PASSIVE. 


2ILL CHR= *‘A-Z,0-9,SP,TAB’’ ONLY? A_CHARACTER TYPED WITHIN QUOTES WHEN 
TRYING TO DEFINE THE CONTENTS OF A 
T T CT MESSA NOT 


GE 
ACE OR TAB’. RETYPE THE 
C WITH ONLY THESE CHARACTERS 
BETWEEN QUOTES. 


?°'SIZE=0"" NOT VALID? A.MESSAGE ZERO BYTES LONG CAN NOT BE 
BUILT. RETYPE THE COMMAND WITH A 
/S1ZE="" IS TYPED 
A DEFAULT SIZE WILL BE USED. 


?TRANSMIT AND EXPECT LIST MUST BE IDENTICAL FOR LOOP? 


IF RUN COMMAND WITH °*'/LOOP/CH’’ IS TYPED 
THE” TRANSMIT we AND EXPECT LIST MUST 
BE EQUAL. IF THEY ARE NOT THIS ERROR 
WILL BE DISPLAYED. USE ‘SE E=T* COMMAND. 


3.2.2 DCLT OR DEVICE ERROR MESSAGES: 


CLOCK NOT FOUND THIS MEANS THAT NO CLOCK WAS 
FOUND ON THE tye THE DIAG- 

NOSTIC WILL STILL RUN BUT NONE 

, Aa TIME OUT CONDITIONS WILL 


BAD CLOCK = PROGRAM. WILL HANG ON “‘TIMEQUT'*! ! 
THIS MEANS THAT THE CLOCK FOUND 
ON THE SYSTEM DID NOT INTERRUPT 
WHEN ASKED TO DO A “TICK. 


THE {PROGRAM WILL STILL “fun 
OFT HE PROGRAM THA UNE DEVICE 
TIMES OUT. 


THE DEV Iter 
ALSO, THE EVENT LOG WILL CONTAIN 
ZERO EVENT TIME FOR ALL EVENTS LOGGED. 
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MAX. CHAR. MSG COUNT EXCEEDED - MSG. NOT BUILT !! 


THIS MEANS THAT THE TRANSMIT OR EXPECT 
BUFFER IS FULL. NO MORE MESSAGES CAN BE 
ADDED TO THAT BUFFER. 


BUFFER FULL = MSG. NOT BUILT !! 
THIS MEANS THAT THE LAST MESSAGE YOU 
TO ADD TO EITHER 3 ge pA 


MESSAGES CAN BE HAT BUFFER. 
THE LIMIT IS DETERMINED BY THE SIZE OF 
THE MESSAGE POINTER TABLE. 


CHAR. COUNT EXCEEDS BUFF LIMIT - MSG TRUNCATED 


THIS MEANS THAT THE LAST MESSAGE YOU 
yes a wee THE TRANSMIT OR —— 


HE TOTAL CHAR. C 
THAT BUFFER TO EXCEED THE LIMIT. 
E MESSAGE WAS TRUNCATED TO COMPLETELY 
THE BUFFER. NO one MESSAGES CAN 





3.2.3 DEVICE ERROR MESSAGE | 


BYTE # IN MSG=XXX EXPTD=YYY RECVD=Z2Z 
XXX= OFFSET OF THAT BYTE FROM THE START 
OF THE COMPARE OR EXPE ° 
YYY= THE CONTENTS OF THAT BYTE IN THE 


E SSAGE 
22Z= THE CONTENTS OF THAT BYTE IN THE 
RECEIVED MESSAGE 


UP TO FIVE OF THESE ERRORS WILL BE 
PRINTED PER MESSAGE COMPARED. ONLY 

THE FIRST FIVE MISMATCHES WILL BE 
NDIVIDUALLY REPORTED, BUT TOTAL 


I 
NUMBER OF MISTMATCHES IS REPORTED 
BY ANOTHER ERROR. 


PRINTING THE EVENT LOG AND USING THE 
DCLT “‘DUMP’* COMMAND WILL ALLOW YOU TO 
FIND THE ADDRESS OF THE MESSAGE AND 

EXAMINE IT. 


DATA COMPARISON DATA ERROR | 


DATA COMPARISON DATA ERROR 
TOTAL MISMATCHES IN MSG = NNN 
THIS MEANS THAT WHEN THE MESSAGE 
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SEQ 21 


RECEIVED WAS COMPARED AGAINST THE 
MESSAGE THAT WAS EXPECTED, SOME OF 
THE CHARS. WERE NOT THE SAME. 


DATA COMPARISON LENGTH ERROR 
COMPARE COUNT= XXX RECEIVE COUNT= 222 


XXX= NURDER OF BYTES IN THE COMPARE 
222= NUMBER OF BYTES IN THE RECEIVED 


THIS MEANS THAT THE MESSAGE RECEIVED 
WAS_A DIFFENT LENGTH THEN THE MESSAGE 
THAT WAS EXPECTED. 


MODEM STATUS CHANGES FOR THIS PASS WERE.. 
HARD CHANGES=XXXXX  GLITCHES=XXXXX 


WHERE XXXXX IS ° 


WHERE THE DUP 
hts IN THE MODEM STATUS. A 
GLITCH IS — A MODEM STATUS INTERRUPT 
OCCURS BUT THE DUP CANNOT FIND A 
DIFFERENCE IN STATUS BIT. 


ektenee 
* NOTE * = IN THE FOLLOWING ERROR DESCRIPTIONS XXXXX 
ettkteee REF ge OCTAL CONTENTS OF THE DEVICE REGISTERS 


MASTER RESET DID NOT WORK THIS MEANS THAT AFTER A MASTER 
RXCSR x RESET WAS ISSUED TO DUP THE 
XXXXXX XXXXXXX RXCSR REGISTER WAS NON ZERO. 
NO CLEAR TO SEND FROM MODEM WHEN REQUEST TO SEND (RTS) 
RXCSR TXCSR 1S SET, MODEM DOES NOT RESPOND 
XXXXXAX XXXXXAX WITH CLEAR TO SEND(CTS). 
TIME OUT WAITING FOR RX OR TX TO COMPLETE 

XCSR TXCSR THIS USUALLY MEANS AN OPEN 
SE RRNX XXXKKAX COMMUNICATION LINK. 
MODEM DID NOT RETURN MODEM READY 
RXCSR TXCSR WHEN THE DTR SIGNAL WAS SET 
XXXAKAX XXXXXXX DATA SET READY WAS NOT RETURNED 
CRC_IN ERROR A CRC ERROR WAS DETECTED BY 
RXDBUF RXCSR THE DUP ON AN INCOMING MESSAGE. 


AXXXXX AXXXAN 
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SEQ 22 


RECEIVER OVERRUN i 1 Et WASN'T SERVICED 

RXDBUF RXCSR FAST ENOUGHT ( 

AXXXXAX AXXXAXX CAUSING A CHARACTER TO BE LOST. 

TIMED OUT IN START,STACK ACK -SEQ THIS USUALLY MEANS THAT THE DUP 

RDATA TA IS UNABLE TO ESTABLISH A 

AXXXXXX AXXXXXX CONNECTION WITH THE OTHER 
DEVICE rio TESTED. THE VALUES 
IN RDATA AND SDATA SHOW THE 
Vaciety ane as AND gay Va 
(SDATA). SEE DDCMP SPEC. FOR 
FURT HER’ EXPLANATION OF STARTUP 
SEQUENCE. 


4.0 PERFORMANCE AND PROGRESS REPORTS 


DCLT USES IT’S . METHOD FOR DETERMINING AN ‘END of f os 
WHICH IS CALLED A ‘DCLT END OF PASS'’. THE NUMBER OT PASSES 
TO BE RUN IS SPECIFIED BY THE /PASS=XXX SWITCH on. THE DCLT 

RUN COMMAND. THE TOTAL NUMBER OF “DCLT ERRORS’’ IS REPORTED 

WHEN ** X NUMBER OF DCLT PASSES'* ARE COMPLETED. 


4.1 PRINTING OF EVENT LOG 


SIGNIFICANT EVENTS OR CHECK-POINTS WILL BE LOGGED IN 

SETRCULAR QUEUE™” STORAGE. AREA. CALLED THE EVENT. LOG. THE LAST 

“NT EVENTS ARE KEPT LOGGED, AND CAN BE LISTED ON, THE OPERATORS 

CONSOLE BY, GIVING A "PRINT! COMMAND AT DR>'(DIAGNOSTIC SUPERVISOR) 
DCLT>"* (DCLT) LEVEL. THIS WILL T AKE YOU TO THE RPT> LEVEL. NOW 

INPUT "LOG" COMMAND. THE EVENTS ARE PRINTED IN A TAST=1 

FIRST~OUT"* ORDER. 


EVENT TIME IS TYPED OUT AS MMM:SS:TT (LIKE 254:36:07) WHERE MMM.SS,TT 
REPRESENT THE NUMBER OF MINUTES, SECONDS, — TICKS SINCE THE LAST 
START OR RE HOULD BE NOT HAT THE TIMES AR 


IS _FETCHI ATOR. 
IT SHOULD A NOTED THAT THERE ARE Re OMY pets AVALIA E To oe 
RELATIVE MINUTES SO *‘TIME’’ WILL WRAP TO AFTER 256:59:5 


A_START OR RESTART COMMAND AT THE ‘DR>*" LEVEL ee Mj EVENT 
LOG. THEREFORE IT IS WISE TO DO A Be sal AT THE “DR>" 
BEFORE GIVING A "'START"’ OR “RESTAR 


THE TYPES OF EVENTS KEPT IN THE EVENT LOG ARE: 
mee MENT QUEUED: 


T TIME, ADDRESS OF 1ST BYTE OF MESSAGE 
OTAL NO. OF BYTES, MODEM STATUS AT THAT TIME. 
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TRANSMIT MESSAGE COMPLETED: 
EVENT TIME, ADDRESS OF 1ST BYTE OF MESSAGE 
TOTAL NO. OF BYTES, MODEM STATUS AT THAT TIME. 


RECEIVE SPACE QUEUED: 
EVENT TIME, ADDRESS OF 1ST BYTE OF MESSAGE, 
TOTAL NU. OF BYTES, MODEM STATUS AT THAT TIME. 


RECEIVE MESSAGE COMPLETED: 
EVENT TIME, ADDRESS OF 1ST BYTE OF MESSAGE 
TOTAL NO. OF BYTES, MODEM STATUS AT THAT TIME. 


DATA aay 0 STARTED: 
ry VENT TIME, ADDRESS OF 1ST BYTE OF RECEIVED MSG. 
TOTAL NO. OF BYTES IN RCV. MSG., TOTAL NO. OF BYTES 
IN EXPECT MSG. 


DATA ert DATA ERROR: 
EVENT TIME, ADDRESS OF 1ST BYTE OF RECEIVED MSG., 
TOTAL NO. OF BYTES IN RCV. MSG., TOTAL NO. OF 
COMPARISON FAILURES 


DATA rT LENGTH ERROR: 
rv Mf TIME, ADDRESS OF 1ST BYTE OF RECEIVED MSG. 
OTAL NO. OF BYTES IN RCV. MSG., TOTAL NO. OF BYTES 
th EXPECT MSG. 


DEVICE INIT AND SETUP 
EVENT TIME MODE OF OPERATION, TYPE OF MAINTENANCE 
LOOP, ‘DCLT’’ PASS COUNT, RUN” PARAMETERS 


DEVICE ERROR: 
T TIME, DEVICE ERROR MESSAGE, CONTENTS OF TWO 
REGISTERS RELATING TO THE ERROR. 
END OF PASS: 
“Cc T: 


EVENT TIME, "DCLT'’ PASS COUNT, "DCLT'’ ERROR COUNT, 
AND THE ''STRT=TO'(COUNT OF START TIME OUTS). 


SEQ 23 
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SEQ 24 


4.2 OPERATOR STATUS MESSAGES 


THE et /NOSTATUS’* QUALIFIERS FOR THE DCLT “'RUN'* COMMAND 
ENAB DISABLES THE PRINTING OF PROGRAM STATUS MESSAGES TO oT 
GPERATOR. THESE MESSAGES ARE INTENDED TO TELL THE OPERATOR WHA 

THE DCLT PROGRAM IS CURRENTLY DOING. BELOW ARE THE MESSAGES THAT 
MIGHT BE PRINTED AND THEIR MEANING: 


MESSAGE MEANING 

TXQ peice IS og START pene is A MESSAGE 

TXC assy tata t bee B MESSAGE C 

RXQ DEVICE HA QUEUED SPACE TO RECEIVE/ COMPLETED RECEIVE 
ERR DEVICE ERROR HAS OCC 

INI DEVICE ABOUT TO BE INITIALIZED 

MSC ABNORMAL wer yore CHANGE 

CMP ABOUT TO DO DATA CHECKING OF RECVD VS. EXPTD DATA 
CML LENGTH ERROR OCCURRED DURING DATA COMPARISON 

ene lh + eames DURING DATA COMPARISON 


NOTE:: BECAUSE THE DUP_IS AN INTERRUPT DRIVEN DEVICE, IT IS BEST 
TO DISABLE STATUS TO PREVENT OVERRUN ERRORS. 






mM 2 


CZDCLA_DUP=11 DATA Con LINK TEST MACY11 30A(1052) 23=MAR-82 16:47 PAGE 26 
CZDCLA.P11 19=MAR=82 18:19 
















4.3 PRINTING DDCMP STATISTICAL AND ERROR LOG 


IF YOU ry ARHANING THIS incr WITH DDCMP wey: aun than YOU CAN 
Say NE ( vie COMMAND ) D ye bee dt L AND ERROR COUNTERS TO 

E R UNDERSTANDING. T IS HAPPENING ON THE LINK. FOR A FULL 
BESCA IPTION OF THESE COUNTERS See (DIGITAL DATA COMMUNICATION MESSAGE 
PROTOCOL) SPECIFICATION VERSION 4.1. 


BELOW IS A BRIEF DESCRIPTION OF EACH COUNTER. THE MOST IMPORTANT OF 
THESE ARE DATA MESSAGES SENT/RECEIVED AND DATA ERRORS IN/OUT. 








OCTAL # MESSAGE MEANING 
000000 STATUS FLAGS USED ONLY IN SOFTWARE DEVELOPMENT. 
000000 DATA MSGS TX # MESSAGES TX'ED DURING THE TEST. RESET 
TO ZERO AT START OR RESTART. LATCHES AT -1. 





000000 DATA MSGS RX # MESSAGES RX'ED DURING THE TEST.RESET 
TO ZERO AT START OR RESTART. LATCHES AT -1. 


000 HIGHEST MSG TX MODULO 255 COUNTER. HIGHEST MESSAGE # SENT 
AND ACK*ED BY REMOTE STATION. 


000 HIGHEST MSG ACK MODULO 255 COUNTER. HIGHEST MESSAGE # RX'D 
BY REMOTE NODE.(WITH NO ERRORS) 


000 NEXT MSG # TO TX MODULO 255 COUNTER. ALWAYS 1 GREATER THEN 
CURRENT MESSAGE NUMBER BEING SENT. 


000 LAST MSG # TX°ED mens ae COUNTER. ALWAYS SAME AS HIGHEST 


















000 HIGHEST MSG# RX NUMBER OF LAST MESSAGE RX'ED AND ACK‘ED. 
000 TRIB ADDR IF MULTIPOINT THEN ADDRESS THIS STATION. 
000 REMOTE TIME OUTS MEAS 235 COUNTER. REPLYS RECEIVED AND 


GLOBAL CRC ERRORS IF MULTIPOINT NETWORK-CRC ERRORS DETECTED. 

NAK REASON REASON FOR SENDING LAST NAK. 

SEL THRESH ERRS HALF /DUPLEX ONLY. SELECT TIME OUTS. 

RX THRESH ERRS INCREMENTED WHEN ERROR DETECTED IN 
INCOMING MESSAGE.(MODULO 8 COUNTER) 
RESET WHEN GOOD MESSAGE RECEIVED. 


000 TX THRESH ERRS INCREMENTED WHEN NAK RECEIVED. RESET WHEN 
ACK RECEIVED. (MODULO 8 COUNTER) 
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000 DATA ERRORS OUT NAKS eee ryer BECAUSE OF HEADER CRC ERROR 
DATA_CRC ERRORS OR MESSAGE NOT perceives 
ae INDICATES NOISE ON TRANSMIT 


DATA ERRORS IN NAKS SENT BECAUSE HEADER CRC ERROR OR DATA 
CRC ERROR DETECTED IN _— MESSAGE. 
MESSAGE TAKING NOISE HITS 


LOCAL BUFFER ERRS EITHER NO BUFFER WAS AVAILABLE FOR INCOMING 
MESSAGE OR BUFFER THAT WAS AVAILABLE WAS 
TOO SMALL FOR INCOMING MESSAGE. USUALLY A 

SOFTWARE SPEED PROBLEM. 


REMOTE BUFFER ERRS “se BUT BUFFER PROBLEMS AT REMOTE 

REMOTE STA ERRS RX OVERRUN ERRORS(RX WASN'T yeas 4 FAST 
ENOUGH) OR IF FORMAT ERROR A CRC EXISTED 
AND WASN'T DETECTED BY HARDWARE. 

LOCAL STA ERRS SAME AS REMOTE STATION ERRORS. 

TX / RX THRESH ERR OVERFLOW FROM RX OR TX THRESHOLD COUNTERS. 


INDICATES A PERSISTENT _LIf'K PROBLEM THAT 
ISN'T CORRECTED AFTER 7 RETRIES. 
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SEQ 27 


5.0 DEVICE INFORMATION TABLES 


THIS IS_THE DEFAULT HARDWARE P-TABLE. THE VALUES AND 

SIZE ARE USED AS A ‘'TEMPLATE’’ FOR CREATING ACTUAL P-TABLE 
ENTRIES _AND Nw DEFAULT VALUES PROVIDED FOR THE OPERATOR. 
SEE SECTION 2.4 FOR AN EXAMPLE OF THE HARDWARE QUESTIONS. 


THE NUMBERS IN BRACKETS ( I.E. (£10) jo tcates THE marc OF THE 
WORD INTO THE HARDWARE P=TABLE. THE OFFSETS MUST MATCH THE P-7ABLE 
OFFSETS USED IN THE HARDWARE PARAMETER CODING SECTION WHERE THE 
‘GET PARAMETER’ CALLS ARE USED TO FILL THE P-TABLE. 


WORD 1 3 9 FULL OR HALF DUPLEX FLAG (BITO=1 IF FULL) 
WORD 160170 3C2J CSR_ADDRESS 

-WORD 300 : 4] INTERRUPT VECTOR 

-WORD 240 : 6] _INTERRUPT PRIORITY 

WORD 0 : 10] PT-PT= MULTIPOINT=1 

WORD 1 ; 12] TRIB_ADDRESS THIS STATION 

-WORD 0 314] REMOTE NODE ‘‘I7EP’ 


6.0 MODE AND MESSAGE DESCRIPTIONS 


6.1 MODE DESCRIPTIONS 


THE FOLLOWING MODE DESCRIPTIONS REFER A Sap se 23 LISTS BEING 
TRANSMITTED AND RECIEVED BUT BE AWARE THAT OTHER DATA IS ALSO 
SENT AND RECEIVED. IF *'/PROTOCOL’’ IS SELECTED THE DATA IS 
eit a IN ie oo ENVELOPE AND CONTROL MESSAGE WILL ALSO 


6.1.1 TRANSMIT MODE 


A LIST OF MESSAGES IS TRANSMITTED WITHOUT EXPECTING ANY DATA 
TO BE RECEIVED. HOWEVER WITH *'/PROTOCOL’’ ENABLED EACH MESSAGE 
SENT MUST BE ACKNOWLEDGED(ACK). 


6.1.2 RECEIVE MODE 





SPACE IS QUEUED FOR THE DEVICE TO RECEIVE MESSAGE 
AFTER RECEIVING AN "EXP "NUMBER OF MESSAGES 
AGAINST” h TST OF EXPECT TO RECEIVE 


Sue DATA RECEIVED 
CAN BE COMPARED 
IF DATA~CHECKING IS ENABLED. 


MESSAGES 


6.1.3 PASSIVE MODE 


THEN EVERY TIME A MESSAGE IS RECEIVED, A MESSAGE IS TRANSMITTED. 
DATA CHECKING CAN BE DONE ON THE RECEIVED DATA.THE ‘/ECHO, /NOECHO" 
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ENABLES/DISABLES THE RETRANSMISSION OF THE DATA RECEIVED. 


SEQ 28 


6.1.4 ACTIVE MODE 


A_LIST OF MESSAGES B ON te AND of metas ARE ne bara 

4 MESSAGES, THE DATA RECEIVED 
CAN BE COMPARED AGAINST A TST OF EXPECT TO RECEIVE” MESSAGES 
IF DATA=CHECKING IS ENABLED. 


NOTE: IF BOTH ENDS OF THE LINK ARE IN ACTIVE a THEN THE 
LINK MUST BE A FULL DUPLEX LINK 


6.1.5 DOWN-LINE=LOAD 


DOWN-LINE-LOADING IS NOT SUPPORTED IN THE Ah B FOR DUP-11 
TO DUP=11 LINKS. HOWEVER IT IS POSSIBLE TO “REQUEST SECONDARY 
LOAD'* FROM A_HOST STATIONCIF SUPPORTED) IF THERE IS A DUP(M9312) 
DECNET BOOTSTRAP MODULE IN YOUR MACHINE. 

SEE BOOTSTRAP OPERATOR'S MANUAL. 


6.1.6 TALK MODE 





THE "*TALK™ END, OF THE LINK TRANSMITS OPERATOR-TYPED MESSAGES 
EXIT” MESSAGE IS TYPED. AT TWAT POINT. THE NODE GOES 
INTO” “LISTEN” MODE. AN “EXIT MESSAGE" IS MESSAGE WHOSE FIRST 
FOUR CHARACTERS ARE “EXIT. SINCE ONLY THE FIRST. FOUR. CHARACTERS 
NEED TO BE "EXIT. MORE CHARACTERS CAN BE ADDED SO THAT A MESSAGE 
Y BE SENT AND THE MODE SWITCHED ALL AT ONCE. FOR EXAMPLE: 


TLK> EXIT ALL OF THIS LINE IS SENT THEN MODE SWTICHED 


6.1.7 LISTEN MODE 


HE *LISTEN’’ ng A THE . im PRINTS rote OF THE ee 
RECEIVED BY THe VICE ON RATOR*S CONSOLE. IF THE PEsseee 
we reT IS “EXIT! MESSAGE THEN THE NODE ENTERS althee on 
EXIT MESSAGE IS A MESSAGE WHOSE FIRST FOUR CHARACTERS ARE EXIT". 


CZDCLA 
CZDCLA.P1 


-11_ DATA _COMM 
9-MAR-8 


1 
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6.1.8 MAINTENANCE ‘LOOP’ MODES 





REMEMBER THAT rs Rwy A_*'RUN’’ COMMAND IS TYPED et IS 
NO LOOPBACK AND T LOOP MODE MUST BE SPECIFIED BY A ‘'/LOOP 

IF A LOOP MODE IS MOESIR ED. 

LOOP MODES ARE ONLY VALID IF THE MODE TO RUN IS ACTIVE ! 


INTERNALTTL LOOPS DATA INTERNAL TO THE USYNRT 


THE FOLLOWING TABLE SUMMARIZES THE MODES THAT CAN BE RUN TOGETHER 
a he tee IS RUNNING ON TWO PROCESSORS (ONE AT EACH 








+ STA TION A STATION B : 
: HOST" NODE ‘‘/LOOP’’ ALLOWED? ‘“REMOTE’* NODE DUPLEX 
iTALK NO LISTEN*, RECEIVE HALF OR FULL! 
‘LISTEN NO TALK*, TRANSMIT HALF OR FULL! 
! TRANSMIT NO RECEIVE*, LISTEN HALF OR FULL! 
'RECEI NO TRANSMIT*, TALK HALF OR FULL! 
'PASSIVE NO ACTIVE* HALF OR FULL! 
‘ACTIVE YES ACTIVE* FULL : 
sACTIVE YES PASSIVE* HALF OR FULL * 


i DOWNL INELOAD #* DOWN-LINE-LOADING IS NOT SUPPORTED FOR DUP-11 | 











= MOST LIKELY TO BE IN THAT MODE 


NOTE: H/D START COLUMN INDICATES WHICH NODE TO START FIRST ON A 
HALF DUPLEX LINK 


IF PROTOCOL IS ENABLED, THE H/D START COLUMN CAN BE IGNORED. 


SEQ 29 
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SEQ 30 


6.2 MESSAGE DESCRIPTIONS 


NAME DESCRIPTION 

ZEROES MESSAGE OF ALL 0'S (00000000, 00, sees) 

ONES ALL 1°S (917999991,191999911 SE Rees 

1ALT MESSAGE OF ALTERNATING 1°S (10101010,10101010,.... 

OALT MESSAGE, OF ALTERNATING. 0S (91010101 O1010101..:2) 

CCITT “CCITT: S12-BIT (VS. 511 BITS) TEST opal TERN 

ITEP CINTERPROCESSOR TEST PROGRAM'S (ITEP). MESSAGE 1<0P1:) 
(<IPPDCIPPS7SA THE QUICK BROWN. F 


or me i he 
LAZY DOG.<15><12><001><177><1 ON eT? ><177>) 


ALPHA ALPHA-NUMERICS (OR FUTURE COMM _T OUND MSG) 
test (AMPERSAND) ° () #+,=.0123456789: : <=> ?2@ABCDEFGHIJK 
LMNOPORSTUVWXYZ/C\J*_%5 


OPERATOR-SECIFIED WA=2,0-9, SPACES, TABS" 
tH HESE A RE THAT. FHE CHARACTERS THAT, CAN 
PED BETOEEN QUOTATION. PARKS. ("<<") 
70 SPECIFIY A UNIQUE MESSAGE. 
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SEQ 31 


7.0 OTHER INFORMATION 





7.1 INTERFACING TO AN “‘ITEP’* NODE 


THESE ARE THE RULES WHEN USING ITEP/WITH A DUV TO TALK 
TO A DUP USING DCLT. 











ITEP NODE DCLT NODE 
ANSWER ALL QUESTION TO THE ANSWER ALL QUESTIONS TO THE 
SET SWITCHES PROMPT. DCLT> PROMPT. 
RERRAEEREERERERREERERREREERRRRERERRERERERERERERRERRRARREREREE 
FOR ONE WAY OUT... 
SET SWITCHES TO 1221 CLEAR EXPECTED 

SET E=ITEP/ 


$=56 
RUN MODE=REC/STATUS/CHECK/NOPROTOCOL 
NOTE: DUV ITEP SENDS ONLY 56 CHARS 
ERERRRRARREREERERRRREEEERERRERERRERERERERERERERRERRRARREREEEE 
FOR ONE WAY = 
SET SWITCHES TO ....1222 RUN MODE=TRA/STATUS/NOPROTOCOL 
Iti iit iti iii iii iii iii iti iiiiii ii iiiiiiiiiiiiiiiiii iii yy 
FOR EXTERNAL LOOPBACK.... 
SET SWITCHES.......1224 CLEAR emrc ise 
SET EXP=I1TEP/S=56 
RUN MODE=ACTIVE/STATUS/CHECK/NOPROTOCOL 
RRARERARERRREREEERERARRRERAERARRREREAAEEEEEERAAAARRERRRRERE 
FOR INTERNAL LOOPBACK...... 
SET SWTICHES......1260 CLEAR gxpcctce 
SET EXP=ITEP/S=56 
RUN MODE=ACTIVE/STATUS/CHECK/NOPR 


REEAAAERERARAREAARERERAERAAERERERAEAERAEREREEAAERAAAAAARARRERRERE 


NOTE: DO NOT USE SWITCH . WITH ITEP GOING TO DCLT 
THE ONLY ME 


G. UPPORTS IS MS 
DCLT IGNORES CRC ERRORS WHEN REC DATA FROM ITEP 
BECAUSE ITPE SENDS NO CRC. 
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SEQ 32 


7.2 TROUBLESHOOTING HINTS 


LISTED BELOW ARE SOME SETUPS THAT COULD BE USED FOR ISOLATING FAULTS. 
THESE ARE BY NO MEANS THE ONLY WAYS DCLT CAN BE USED !!!!!2! 

DCLT IS MEANT TO BE A VERY FLEXIBLE TOOL! THIS SECTION is hEANT TO 
GIVE SOMEONE NOT TOO FAMILIAR WITH DCLT A PLACE TO START. 


HINT::: IF THIS DOCUMENT IS TOO LARGE TO CONSUME, GET A COPY OF DEC’S 
COMMUNICATION OPTIONS MINI REFERENCE GUIDE (EK-CMIN1-RM-001). 


REMEMBER, IF YOU ARE HAVING TROUBLE WITH RX OVERRUN ERRORS OR MISSED 
MESSAGES, OR DATA CHECK ERRORS-- DISABLE STATUS(/NOSTATUS). THE CPU 
IS HAVING A HARD TIME SERVICING BOTH THE TTY AND DUP. 


yd IF YOU ARE CHECKING OUT DUP-11 TO DUP-11 LINKS, IT IS A GOOD IDEA 
O ENABLE a te es be BY EXAMINING THE Do ChP STATISTICAL re 

ERROR LOG, YOU WILL GET A COMPLETE PICTURE OF WHAT IS HAPPENING ON T 

LINK. NOISY COMM LINKS WILL BE DETECTED BETTER IF LARGE MESSAGES(S12 


BOTH NODES MUST EITHER ENABLE('’/PROTOCOL"’) OR DISABLE(*'/NOPROTOCOL"’). 


NOTE: IF BOTH NODES Ii IN ACTIVE AND *‘/NOCHECK’’ IS USED 
woo~= END-OF-PASS IS othe 34 AS RECEIVING 1_ MESSAGE 
AND COMPL git THE T yong! LIST. WITH NO DATA 
CHECKING RE_IS FOR DCLT 
MANY MESSAGES IT SHOULD EXPECT TO RECEIVE. 


7.2.1 INTERNAL LOOP AT EACH NODE 


RUN EACH END OF THE LINK IN ACTIVE MODE WITH LOOP=INTERNAL. 
TRANSMIT TWO OR THREE MESSAGES WITH NO DATA CHECKING. 

STATUS PRINTING COULD BE TURNED OFF IF ON, BUT SEEING THE SEQUENCE 
OF EVENTS MIGHT BE INFORMATIVE. 


A POSSIBLE COMMMAND SEQUENCE IS: 
CE 


cT 
SE T=ONES/S=20/C=2 
R M=A/LO=1 /NOCH/STAT/NPR 


WHAT THE ABOVE COMMAND SEQUENCE MEANS: 


THE "C6 AND, THE <C T" INITIALIZES THE “EXPE 
1751 AND THE “TRANSMIT LIST’. THE “SE T 

SETS THE TRANSMIT LIST TO CONTAIN 3 MES 
CONTAIN DATA OF ALL ONES AND EACH ONE I 
THE "R M=A/LO=1/NOCH/STAT’’ SETS THE MOD 
ACTIVE AND LOOP TYPE TO BE INTERNAL TIL. 
NOT BE CHECKING DATA SO THERE WAS NO NEED T 
EXPECT LIST. THE PROGRAM WILL BE PRINTING STATU 


WHAT YOU SHOULD SEE AFTER ENTERING THE RUN COMMAND 
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IF THINGS ARE RUNNING CORRECTLY : 


INI RXQ TXQ RXQ TXC TXQ RXQ TXC 
TXQ RXQ TXC 
MODE=ACTIVE/LOOP=INTERNAL/PASS=00000 
eCLT> (A) ? /STATUS/NOCHE CK/NGE CHO/NOMODEM/NOPROTOCOL 


THIS GIVES a A_IDEA_IF THE COMM. DEVICE ~~ EVEN TRANSMIT AND 

RECE S REPORTED wy: PROBABLY BE DUE TO INCORRECT 

ils inoresses BEING USED OR A FAULTY DEVICE. CHECK gwd 
SPLAY’’ AND RUN THE PREREQUISITE DIAGNOSTICS FOR THE C 


NOW TRY RUNNING EACH NODE THE SAME WAY WITH DATA CHECKING ENABLED. 
A POSSIBLE COMMMAND SEQUENCE IS: 


SE E=T 
R M=A/LO=1/CH/PAS=3/PR 


WHAT THIS SEQUENCE MEANS: 


THIS SEQUENCE IS SIMILAR TO THE ONE ABOVE . THE "SE E=T" 
MAKES A COPY OF THE TRANSMIT LIST IN THE EXPECT LIST 

THE EXPECT LIST NOW CONTAINS 3 MESSAGES. THE RessAces: WILL 
HAVE ALL ONES FOR DATA LENGTH 

THE RUN COMMAND IS THE SAME. WITH THE AD 
SWITCHES “/CH/PAS=3". THE “CH SWITCH TELLS HE PROGRAM 
TO CHECK THE RECEIVED DATA AGAINST THe TFEABECTED D LIST". 

THE "PAS=S" SWITCH TELLS THE PROGRAM T PASSES BEFORE 
RETURNING TO THE DCLT> PR ON NON-DDCRP LINKS. THE 
PPROTOCOL” SUITCH IS OPTIONAL. 


SEQ 33 
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YOU SHOULD SEE AFTER oie THE RUN COMMAND 
ie THINGS ARE RUNNING CORRECT 
INI RXQ TXQ TXC RXQ TXQ TXC RXQ 
TXQ TXC CMP CMP CMP EOP RXQ TXQ 
TXC RXQ TXO ie RXQ TXQ TXC CMP 
CMP CMP EOP RXQ TXQ TXC RXQ TXQ 
TXC RXQ TXQ TXC CMP CMP CMP EOP 
MODE=ACT1IVE/LOOP=INTERNAL/PASS=00000 
/STATUS/ CHECK /NOECHO/NOMODEM/PROTOCOL 


IF A CABLE TURNAROUND CONNECTOR IS AVAILABLE, PUT IT ON THE END OF 
THE CABLE JUST BEFORE THE MODEM AND RUN IN ACTIVE MODE WITH THE 
**/LOOP=CABLE"* SWITCH. 


POSSIBLE COMMAND SEQUENCE IS: 
R M=A/L=C/CH/PAS=3 
WHAT THIS SEQUENCE MEANS: 


THIS SEQUENCE HAS THE *'/LO=C"*. THIS og THE SOFTWARE 
NOT TO CHECK FOR DATA SET READY SIGNAL F THE MODEM. 
ALSO A CLOCK SIGNAL IS FURNISHED BY THE DUP. 


YOU SHOULD SEE AFTER oe THE RUN COMMAND 
te THINGS ARE RUNNING CORRECTL 


INI RXQ TXQ TXC RXQ TXQ TXC RXQ 

TXQ TXC CMP CMP CMP ‘ RXQ TXQ 

TXC RXQ TXQ@ TXC RXQ TXO TXC CMP 

CMP CMP EOP RXQ TXQ TXC RXQ TXQ 

TXC RXQ TXQ TXC CMP CMP CMP EOP 
MODE=ACTIVE/LOOP=CABLE/PASS=00000 

oT? A) 5 STATUS/ CHE EK/NOE CHO/NOMODEM/PROTOCOL 


7.2.2 TRANSMIT ON ONE NODE RECEIVE ON THE OTHER 


NOW TRY TRANSMIITING FROM ONE END AND RECEIVING ON THE 
OTHER. MAYBE WITH NO DATA CHECKING AT FIRST TO ESTABLISH 
IF THE LINK IS WORKING. POSSIBLE COMMAND SEQUENCES ARE: 


NODE A NODE 8 
ef z 
R M=TR/NOCH/PAS=3/NPR R M=R/NOCH/PAS=3/NPR 


WHAT THIS SEQUENCE MEANS: 



























J 3 


CZDCLA_DUP-11 DATA COMM. LK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 36 
CZDCLA.P11 19-MAR=82 18:19 


SEQ 35 


EC E AND CT’ INITIALIZE BOTH THE 
TRANSAIT. AND EXPECT LISTS. THER METR/PAS=3"” SETS 
THE RUN MODE EA JO BE. TRANSMIT AND, THE PASS 
COUNT IS SET TO 3. THE "R M=R/NOCH/PAS=3°' SETS THE RUN 
RODE. OF NODE B TO RECEIVE WITH NO DATACHECKING AND 
THE PASS COUNT IS SET TO 
PROTOCOL CAN BE OPTIONAL BUT IT MUST BE ENABLE OR 
DISABLE ON BOTH ENDS. 


WHAT YOU SHOULD SEE AFTER ae THE RUN COMMAND 
IF THINGS ARE RUNNING CORRECT 


FOR NODE A: 
mi TXQ TXC EOP TXQ@ TXC EOP TXQ 


oP 
MODE=TRANSMI T /PASS=00000 
DCLT> (A) ? /STATUS/NOCHE CK/NOE CHO/NOMODEM/NOPROTOCOL 


FOR NODE B: 
INI RXQ EOP RXQ EOP RXQ 
MODE=RECEIVE 7PASS=00000 
cP Ww ¢ /STATUS/NOCHE CK/NOE CHO/NOMODEM/NOPROTOCOL 


NOW TRY DOING DATA CHECKING ON THE MESSAGE(S) BEING 
TRANSMITTED. POSSIBLE COMMAND SEQUENCES ARE: 


R M=TR/PAS=3 R M=R/CH/PAS=3 
WHAT THIS SEQUENCE MEANS: 


THE CHANGE IN THE RUN COMMAND IS FROM ‘NOCH’ TO 
“CH’’. THE ‘'CH’’ ENABLES DATA CHECKING. 


WHAT YOU SHOULD SEE + Aa ENTERING THE RUN COMMAND IF THINGS 
ARE RUNNING CORRECTLY 


NODE A: IS THE SAME AS ABOVE. 


INI RXQ CMP EOP ote wore RXQ CMP EOP 
MODE=RECEIVE/PASS= 
DCLT> (A (STATUS/CHECK/NDECHO/NOMODER/PROTCOL 


re RUN THRU THE SEQUENCE AGAIN WITH NODE A RECEIVING 
AND NODE 8 TRANMITTING TO CHECK OUT THE OPPOSITE 
DIRECTION. OF DATA FLOW. 
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7.2.3 ONE NODE ACTIVE THE OTHER NODE PASSIVE 
NOW TRY RUNNING ONE NODE IN ACTIVE MODE WHILE THE OTHER 





END RUNS _IN PASSIVE. DATA CHECKING SHOULD BE TURNED OFF 
IF THE MESSAGE LISTS ARE NOT THE SAME. 
POSSIBLE COMMAND SEQUENCES ARE: 

NODE A NODE 8 

z i 

SE "tr. CCITT/S=10/C=2 SE T=1ALT/S=20/C=2 

R M=ACT/NOCH/PAS=3 R M=P/NOCH/PAS= 


WHAT -— SEQUENCE MEANS: 
THE EXECUTION OF THIS + ge 4 CAUSES THE FOLLOWING 
THINGS TO HAPPEN ON NOD AN EXP 


ACTIV DISABLED AND 
THE PASS COUNT SET TO THREE. NOTE STATUS WOULD STILL BE 
PRINTED IF THE PREVIOUS SEQUENCES HAD BEEN RUN. 

IF YOU ARE RUNNING FROM LOAD TIME YOU WOULD HAVE 

TO ADD A “/STA TO THE RUN COMMAND LINE. 


nad B: THE TRANSMIT AND EXPECT LISTS ARE INTIALIZED 
THEN THE TRANSMIT LIST IS SET TO 3 MESSAGES OF 
“9 BYTES EACH. THE DATA FOR EACH MESSAGE IS ALTERNATING 
THE NODE IS THEN RUN IN PASSIVE MODE WITH 
DATA CHECKING DISABLED AND THE PASS COUNT SET TO 3. 


T YOU SHOULD SEE AFTER ee THE RUN COMMAND 
ie THINGS ARE RUNNING CORRECT 


FOR NODE A: 


wt RXQ TXQ Han RXQ TXQ TXC RXQ 
Q TXC EOP RXQ TX@ TXC RXQ TXQ 
Ixe RXQ TXQ xe EOP RXQ TXQ TXC 
RXQ TXQ TXC RXQ TXO TXC 
MODE=ACTI VE/PASS=O 00 
DELT> (A) /STATUS/NOCHE CK/NOE CHO/NOMODEM/NOPROTOCL 


FOR NODE B: 

INI RXQ TXQ Th RXQ TXQ TXC RXQ 
TXQ TXC EOP RXQ TXQ TXC RXQ TXQ 
TXC EOP RXQ TXQ TXC RXQ@ TXQ TXC 

RXQ TXQ TXC EOP 

MODE=PASS1VE/PASS=00000 

DCLT> A) /STATUS/NOCHE CK/NOE CHO/NOMODEM/NOPROTOCOL 


SEQ 36 
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NOW USE DATA_CHECKING WITH THE ies | MESSAGE LISTS** SET 
UP APPROPRIATELY. ANOTHER VARIATION IS TO HAVE LARGE SIZE 
MESSAGES ON ONE SIDE WITH SMALL MESSAGES ON THE OTHER. 


THEN REVERSE THE SETUP SO THAT THE NODE RUNNING IN ACTIVE 
IS RUNNING IN PASSIVE AND VICE VERSA. 


SEQ 37 
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7.2.4 BOTH NODES ACTIVE 


NOW BOTH NODES CAN BE RUN_IN ACTIVE WITH DATA CHECKING ON. 
STATUS PRINTING COULD BE TURNED OFF IF YOU'RE NOT INTERESTED 
IN THEM. 

NODE A NODE B 

C 3 ct E 

SE Me OALT/S=10 € E=OALT/S=10 

SE T=CCITT/S=20 SE E=CCITT/S=20 

T=ALPHA/S=30 SE E=ALPHA/S=30 

SE E=ZERO/S=11 T=ZERO/S=11 

SE E=O0NES/S=21 E T= mith! 

SE E=ITEP/S=31 SE T=ITEP/S=51 

R M=A/CH/NOST/PAS=3 R M=A/CH/NOST/PAS=3 


WHAT THIS we MEANS: 
NODE A SETS UP IS TRANSMIT LIST TO BE 


SAME MESSAGES EX THAT THE 
pone ty + ts 7g LIST IS THE EXPECT MESSAGE LIST 
BOTH NODES ARE RUN IN THE ACTIVE MODE WITH 
DATA CHECKING AND PASS COUNT EQUAL TO THREE. 
T YOU SHOULD SEE AFTER SITERING THE RUN COMMAND 
tf THINGS ARE RUNNING CORRECTL 
ON BOTH NODES 
MODE=ACT1VE/PASS=00000 


/NOSTATUS/ CHE CK/NOE CHO/NOMODEM/NOPROTOCOL 
DCLT> (A) ? 


A GOOD VARIATION THAT CAN BE USED 1s TO LOAD THE TRANSMIT LIST AND 
CHARACTERS) ,ENABLE PROTOCOL, 


EXPECT LIST WITH A_LARGE wie TS 
AND RUN MANY PASSSES ON BOTH E 


DCLT>(A)? cL T 

DCLT>(A)? CL_E 

DCLT>(A)? SET T=CCITT/SIZE=512 
DCLT>(A)? E=T 

DCLT>(A)? R M=A/NST/CH/PA=255/PR 
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SEQ 39 










7.2.5 TALK AND LISTEN MODES FOR COMMUNICATING 
TALK AND LISTEN MODES ARE USEFUL IF THE OPERATORS WISH TO COMMUNICATE 


WITH EACH OTHER. JUST SETUP A TIME THAT EACH WILL GO TO THEIR MODE, 
oie ret eee’ AND SEND MESSAGES OVER THE LINK. POSSIBLE COMMAND 


R _M=LIS/NOST 
LIS> 


















R M=TA/NOST 
TLK> 





7.3 EXAMPLES OF COMMANDS 


THIS SECTION WILL SHOW A SAMPLING OF COMMANDS AND 
EXACTLY WHAT TO EXPECT FROM THEM. 


7.3.1 EXAMPLES OF MESSAGES COMMANDS 
THE CLEAR COMMANDS . 


cE 
cT 


THIS WILL set OF SIs THE TRANSMIT AND EXPECT LIST 
TO 1 MESSA 8 BYTES. THE DATA OF THE MESSAGE WILL 
BE THE ITEP MESSAGE 
IF THESE COMMANDS ARE FOLLOWED BY A SHOW COMMAND 
SH E 
SUCH AS THE SHOW EXPECT LIST. WHAT YOU WOULD SEE IS 
MSG: E=58 
























=00001 
/NOSTATUS/ CHE CK/NOE CHO/NOMODEM/NOPROTOCOL 
DCLT> (A) ? 


NOW IF YOU DID A SET EXPECT LIST COMMAND SUCH AS: 
SE E=A/S=35/C=3 

AND FOLLOWED IT WITH A SHOW EXPECT LIST COMMAND 
SH E 

WHAT YOU youLP SEE IS 

: TYPE=ALPHA/SIZE=35 

TYPE=ALPHA/S 


YPE=ALPHA/SIZE= 
* MODE=ACTIVE/PASS= 00001 
DCLT> (A) ? /NOS TATUS/ CHE CK/NOE CHO/NOMODEM/NOPROTOCOL 
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7.3.2 EXAMPLES STATISTICAL COMMANDS 
IF YOU TYPE A HELP COMMMAND 


WHAT YOU WILL SEE IS 
DCLT CMDS: 
iad OR SHOW EXPECTLIST OR TRANSMITLIST 


T 

DUMP START=END/B 

SET EX PECTNSG OR TRANSMITMSG=TYPE/SIZE=N OR /COPY=N 

SET EXPECT=TRANSM 

TYPE=ONES ZEROES, JAI OALT, ITEP, CCITT ALPHA 
SPCD=A-2,SP,TAB,0-9 IN QUOTES’ 

RUN MODE=MTYP/LOOP=LTYPY CHECK. PROTOCOL , STATUS, ECHO,MODEM,PASS=N 
MTYP=TRAN,REC,ACT,PAS, TAL.LIS, 
LTYP=INT, CAB, LOC ,REM/ 


DCLT> (A) ? 
THE SAME WILL HAPPEN IF YOU USE THE ? 
THE DUMP COMMAND WORKS LIKE THIS 

DUM 41260-4130 


THIS WILL_DUMP THE DATA FROM ADDRESSES 41260 TO 
41300 IN THE FOLLOWING MANNER 


£1968 1Osess 000167 177772 021122 012112 006312 006312 006312 
IF YOU ~ USED THE /8 SWITCH 


un ieee. inwe 
WHAT vou. WOULD 


41260 O83 Bu 167 000 3 i$ 377 148 024 
a4 i $5 024 312 014 014 312 014 


SEQ 40 
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7.3.3 EXAMPLES RUN COMMMANDS 


ry CAN FIND SEVERAL EXAMPLES OF THE RUN COMMMAND IN THE 
TROUBLE SHOOTING HINTS SECTION BUT HERE ARE SOME OTHERS. 


IF YOU a TO EXECUTE THE RUN COMMAND 
M=TR/NOST/CH/PAS=4 
WHAT woutD MHAPPEN N_IS AFTER 4 PASSES THE PROGRAM WOULD RETURN 
TO THE DCLT PROMPT AND PRINT 
MODE=TRANSM1 T/PASS=00000 
ecLT> /NOSTATUS/CHECK/NOE CHO/NOMODEM/NOPRTOCOL 


> (A) 

° IF YOU we 16 EXECUTE THE RUN COMMAND 
CT 

R M=A/LO=1/ST/CH/PAS=3/PROTOCOL 


vou" WOULD SEE (IF USING DEFAULT TRANSMIT AND EXPECT 
MESSAGES) IS 


INI RXQ TXQ Ln 4 EOP RXQ TXQ 

TXC_CMP_EOP RXQ TXC TXC CMP EOP 

MODESACTIVE/LOOP=INTERNAL/P. ASS=0000 

/STATUS/CHE CK/NOE CHO/NOMODEM/PROTOCOL 
DCLT> (A) ? 
IF YOU en EXIT COMMAND 
WHAT VOU eer e SEE IS 
0 CUMLATIVE ERRORS 


DR> 


SEQ 41 
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7.3.4 EXAMPLES PRINT COMMANDS 


THE PRINT COMMMAND CAN BE USED FROM THE SUPERVISOR (DR>) 
LEVEL_OR THE DCLT (DCLT>) LEVEL. ONCE YOU AR T 
REPORT LEVEL YOU WILL KNOW IT BY THE PROMPT “RPT>*'. 

AFTER TYPING PRI FOR EITHER THE THE DLCT> OR DR> THE 
FOLLOWING IS DISPLAYED. 


TYPE *H*’ OR ‘'?°' FOR HELP! 
RPT> (A) ? 


HERE ARE SOME EXAMPLES OF RPT> LEVEL COMMANDS: 
THE HELP OR ? COMMAND 
HELP 


% 
PRODUCES THE FOLLOWING: 


DCLT REPORT CMDS: 
LOG = PRINT DCLT Mey - 


H T THIS MESSAGE 
COUNTERS/SW = PRINT DDCMP COUNTERS 
WHERE /SW=FULL, /ERRORS, /OFFSET=NN(O) 


RPT> (A) ? LOG 

THE LOG COMMAND PRODUCES THE FOLLOWING 

>>> DCLT EVENT LOG ENTRY >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
0:01:17 ~. T 


PASS = 12 ERRORS = 0 _STRT-T0 = 0 
>>> ae ryow hss fa >>>>>>>>>>>>>>>>5>>>>>>>5>>>>>> 


ADDR OF MSG= 503150 BYTE COUNT= 58 
MODEM STATUS: CTS DSR DCD RTS RI SRD 


>>> DCLT EVENT LOG ENTRY >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
0:01:16 R Five SPACE QUEUED 
ADDR OF MSG=004150 BYTE COUNT= 512 
MODEM STATUS: cts DSR bgp ars | = 


HIS GOES ON FOR 45 EVENTS IF THE MODE 
PREVIOUSLY EXECUTED HAD THAT MANY 
YOU EXIT FROM EVENT LOG PRINTING BY 
TYPING A CONTROL C. 


TO LEAVE THE REPORT LEVEL INPUT THE “EXIT’* COMMAND. 


SEQ 42 
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7.3.5 EXAMPLE EXIT COMMAND 
THE EXIT COMMAND WORKS LIKE THIS. IF YOU 
ENTERED THE REPORT LEVEL FROM THE SUPERVISOR 
(DR>) THEN TYPING 

EXIT 
WILL RETURN YOU TO THE SUPERVISOR. 

DR> 


IF YOU ENTERED REPORT FROM THE DCLT LEVEL 
THEN TYPING 


EXIT 
WILL RETURN YOU TO THE DCLT LEVEL. 
DCLT> 


SEQ 43 


7.4 THINGS TO WATCH OUT FOR 


IF YOU ARE RUNNING DCLT ON SYSTEMS THAT HAVE CONSOLES 
WITH DIFFERENT SPEEDS YOU WILL BE UNABLE TO USE THE 
PRINT STATUS FEATURE _IN CERTAIN MODES. THE RULE IS 

IF _IT DOESNT WORK WITH STATUS PRINTING RUN THE MODE 
WITH NOSTATUS. 


IF YOU ARE USING PASSIVE - WITH THE ECHO SWITCH 
THE WILL HAVE TO RE-ENTER THE TRANSMIT 


N YOU WILL Y_HAV 
LIST ON THE SIDE WITH THE ECHO SWITCH. THE or IS 
THAT THE TRANSMIT LIST GETS OVER WRITTEN WITH THE 
RECEIVE LIST WHEN USING THE ECHO SWITCH. ALSO DISABLE 
DATACHECKING("‘/NOCHECK*') . 


IF YOU ARE RUNNING HALF/DUPLEX IT IS BEST TO USE Hy’ **/NOMODEM"* 

SWITCH BECAUSE EVERY TIME THE LINE IS TURNAROUND A MODEM CHANGE 

WILL BE REPORTED. 

IF YOU ARE RUNNING WITH °*/PROTOCOL** seu ccree THE MODEM STATUS AS 
T LOG MAY NOT IND R ONDITION 


THE MODEM SIGNALS. TH 
MESSAGE IS PASSED TO THE DDCMP PROTOCOL LAYER WHERE THE RX,TX AND 
MODEM SIGNALS ARE MANIPULATED. 
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-SBTTL PROGRAM HEADER 
BGNMOD 


ste 
3 THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
3 THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT ,BGNAU,,BGNDU 


HEADER CZDCL,A,0,1800. .0,#PRI07 


LSNAME : : 

ASCII /C/ 

ASCII /Z/ 

ASCII /D/ 

ASCII /C/ 

ASCII /L/ 

-BYTE 0 

-BYT 0 

BYTE O 
LSREV 

ASCII /A/ 
LSDEPO:: 

ASCII /0/ 
LSUNIT:: 

eWORD 0 
LSTIML:: 

-WORD 1800. 
LSHPCP: : 

«WORD LSHARD 
LSSPCP: : 

-WORD 0 
LSHPTP:: 

-WORD LSHW 
LSSPTP:: 

-WORD 0 
LSLADP: : 

-WORD LSLAST 
LSSTA 

eWORD 0 
L$Cco 

-WORD 0 


SEQ 44 
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10 000000 -WORD 0 
11 LSAPT:: 
\¢ 000000 «WORD 0 
1 LSDTP:: 
14 002124 -WORD LSDISPATCH 
15 LSPRIO:: 
6 000340 «WORD #PRIO7 
1 LSENVI:: 
000000 «WORD 0 
1 LSEXP1:: 
000000 -WORD O 
1 LSMREV:: 
00 -BYTE CS$REVISION 
00 ‘ CSEDIT 
4 LSEF:: 
000000 -WORD 0 
000000 -WORD O 
LS$SPC:: 
000000 «WORD 0 
LSDEVP: : 
011524 -WORD LSDVTYP 
LSREPP: : 
025336 -WORD LSRPT 
LSEXP4:: 
000000 0 
LSEXPS:: 
000000 - 0 
026334 Lesur LSAU 
026326 L$DU 
LSLUN: e 
000000 0 
LSDESP: : 
011534 -WORD LSDESC 
LSLOAD:: 
104035 EMT ESLOAD 
LSETP:: 
000000 eWORD 0 
LSICP:: 
025352 iscep eWORD LSINIT 
026240 -WORD LSCLEAN 
LSACP:: 
026236 -WORD LSAUTO 
LSPRT:: 
025344 «WORD LSPROT 
00000 LSTEST:: 
LSDLY:: © . . 
000000 -WORD 0 
LSHIME:: 
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71 0021 
72 0021 
rg tb 
75 


OAR at TES 


000001 
026342 
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-SBTTL DISPATCH TABLE 


THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 


: IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACK TEST. 


DISPATCH 1 


. WORD 
LSDISPATCH: : 
«WORD 





T1 


SeessPeessuseeaPaeesISNS | 


POPIPONONONOPONENPONOPUNOPUNAY: 
SSLESRELSLS 


a ss ss 9 Sh SH A 


md ond od od 
FWN=-0o 






11 DATA COMM. LINK TEST 
=82 18:19 


000010 


000001 








MACY11_30A(1052) 23=MAR-82 16:47 PAGE 48 
DEFAULT HARDWARE P-TABLE 
-SBTTL DEFAULT HARDWARE P-TABLE 


THE DEFAULT HARDWARE od La yee CONTAINS DEFAULT VALUES OF 
THE TEST-DEVICE PAR CTURE 
} ay NTICAL TO THE STRUCT 


E HARDWARE P-TABLES, 
IS USED AS A *‘TEMPLATE” FOR. BUILDING THE P-TABLES. 


Bete Ge Ge Ge Ge 
+ 


L10000-LSHw/2 


s INDEPENDENT SECTION 
THE NUMBERS IN BRACKETS ARE THE OFFSET VALUES USED IN THE PARAMETER 
CODING SECTION. 


3C0J FULL OR HALF DUPLEX FLAG (BITO=1 IF FULL) 


DEPENDENT SECTION 
ADDING OR REMOVING WORDS FROM THIS TABLE EFFECTS THE ‘‘GET’’ CALLS IN 
HE HARDWARE PARAMTER CODING SECTION BY CHANGING ‘OFF SETS"’ 


Tat T 
ine TRIB. HER NODE." ws, STATION 


J 4 


SEQ 48 
CZDCLA 11 DATA C LINK TEST MACY11 30A(1052) 23-MAR~B2 16:47 PAGE 49 
CZDCLA.P1 1DAPARS oi 8: i DEFAULT HARDWARE P=T 
HF 
12 
119 .SBTTL GLOBAL EQUATES SECTION 
i3t 
122 
sie 
3129 2 THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
gig 3_ARE USED IN MORE THAN ONE TEST. 
2128 
2129 
130 002150 EQUALS 
ab : BIT DIFINITIONS 
134 100000 B1T15== 100000 
2135 BIT14== 40000 
2136 020000 B1T13== 20000 
2137 010000 BIT12== 10000 
2138 004 BIT11== 4000 
2139 002000 BIT10== 2000 
2140 001000 BIT09== 1 
2141 000400 BITO8== 400 
142 000200 B1T07== 200 
14 000100 BI TO6== 
144 000040 BIT0S== 40 
145 000020 BIT04== 20 
146 000010 B1T03== 10 
2147 BITO2== 4 
2148 000002 BITO1== 2 
3149 000001 B1T00== 
2151 001000 BIT9== BIT 
33¢ 000400 BIT8== BITO. 
15 000200 BIT7== BITO 
154 000100 BIT6== BIT06 
155 0 BITS5== BITOS 
2156 20 BIT4== BIT04 
157 10 BIT3== B1T03 
158 BlT2== BIT 
159 2 BITi== BITO1 
160 000001 BIT0== B1T00 
1 t EVENT FLAG DEFINITIONS 
163 ; EP 52. EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
165 00004 EF .START== 2. : START COMMAND WAS ISSUED 
166 00003 EF. -RESTART== > ; RESTART COMMAND WAS ISSUED 
167 000056 ONTINUE== 30. 3 CONTINUE COMMAND WAS ISSUED 
168 3 EF: :N News == 9. ; A NEW PASS HAS BEEN STARTED 
! i 000034 EF .PWR== 8. + A POWER-FAIL/POWER-UP OCCURRED 





K 4 


SEQ 49 
CZDCLA DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-B2 16:47 PAGE 50 
CZDCLA.P11 1DomARCBS i849 GLOBAL EQUATES SECTION 
171 2 
ive + PRIORITY LEVEL DEFINITIONS 
158 pares ¥ 
== 
178 ae ap PRIOS== 34 
17 PRI04== 20 
178 090140 PRIO3== 14 
179 900100 PRIO2== 100 
180 PRIO1== 40 
181 PRIOO== 0 
183 ‘OPERATOR FLAG BITS 
184 : 
185 EvL== 4 
186 000010 LOT== 10 
187 000020 ADR== 20 
188 000040 IDU== 40 
189 000100 ISR== 100 
2190 000200 == 200 
2191 000400 BOE== 400 
2192 001000 PNT== 1000 
219 002000 PRI== 2000 
2194 004000 IXE== 4000 
2195 010000 IBE== 10000 
2196 020000 IER== 20000 
2197 040000 LOE== 40000 
198 100000 HOE== 100000 


L 4 


SEQ 50 
CZDCLA DUP=11 DATA COMM, LINK TEST MACY11 30A(1052) 23=MAR-82 16:47 PAGE 51 
CZDCLA.P11  19-MAR-82 18:19 GLOBAL EQUATES SECTION 

200 yteeee INDEPENDENT EQUATES 

208 001000 BUFLIM=512. :MAX BUFFER SIZE IN BYTES 

20 : APPLIES TO TX,RX AND CMP BUFF 
2204 000017 MSGLIM=15. sMAX F MESSAG S PER BUFFER 
2205 : (FOR EACH INCREMENT (+1) TO MSGLIM, 
2206 : S TO THE POINTER E 
2207 ;  (PTRTAB:) SINCE THIS MEANS 
3208 :  "POINTER’ WORDS PER BUFFER. 
210 ;MODE OF OPERATION EQUATES 

211 000000 REC=0 :RECEIVE MODE 

gle 000001 TRA=1 S TRANSMIT MODE 
221 00000 PAS=2 :PASSIVE MODE 
2214 00000 ACT= SACTIVE MODE 
2215 000004 DOW=4 [DOWN-LINE=LOAD MODE 
2216 000005 TAL= + TALK 
2217 000006 LIS=6 [LISTEN MODE 
2218 :MAINT LOOP TYPE EQUATES 
2219 000000 NONE= 0 :NO LOOP 
2220 000001 TTL= 1 ZINTERNAL TTL 
2221 00000 CABLE= : LOOP 
2222 09000 MODLOC= SMODEM LOCAL 
2223 000004 MODREM= 4 :MODEM REMOTE 
2226 000005 MOP= 5 MOP 
2227 sCLOCK ENABLE VALUES TO BE LOADED IN CLK*S CSR 
2228 000100 LCLKEN= N= 100 L=CLOCK CSR VALUE 10 ENABLE THE CLOCK 
2229 000111 PCLKEN= 111 PC LOCK CSR VALUE TO ENABLE THE CLOCK 
2230 001600 PCLKCT= 1600 :P-CLOCK COUNT SET REGISTER FOR COUNTER 
2232 :PARAM WORD EQUATES 
2234 000001 STATB= BITO ZOPERATOR AWAKE ASKED FOR 

235 000002 DATCKB= BIT1 ‘DATA CHECK BIT 

236 000004 ECHOB= BIT ‘ECHO BI 
2237 000010 MOCHK= BIT SMODEM STATUS CHECK BIT 

238 20 CRCB= BITS [CRC CALCUALTE ASKED F 

239 0 PROTOB= BITS SPROTOCOL PROCESSING ASKED FOR 
2240 000100 PRORUN= BIT :PROTOCOL IS RUNNING(NOT STARTING OR MAINT) 
2241 000200 ABORT= BIT [FATAL PROTOCOL ERROR(SET IN PROTOCOL CODE) 
3245 ZOPTION TYPE EQUATES 

245 
st 000000 pPv= 0 :CODE FOR DPV CHAR MODE 

2468 ZEVENT LOG MESSAGE TYPES (USED TO LOCATE EVENT DESCRIPTION IN EVENT TABLE 
249 : AND DISPATCHING TO SEPERATE SECTIONS OF THE EVENT REPORTING SECTION) 
250 TXQ= ; TRANSMIT MESSAGE QUEUED 

51 TXC= TRANSMIT COMPLETE 

5 RXQ= 3RECEIVE BUFFER QUEUED 

25 RXC= SRECEIVE COMPLETE 


zDEV ICE INFORMATION 
EVICE ABOUT TO INIT 


‘ 

—_ 

o 

m 

za 

" 
=r 
No 
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SEQ 51 
CZDCLA DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 52 
CZDCLA.P11  19=MAR=82 18:19 GLOBAL EQUATES SECTION 
35 000014 oCk= 14 ;DATA COMPARISON RESULTS 
38 000016 MSC= 16 :MODEM STATUS CHANGE 
260 000020 DLE= 2 :DATA COMPARISON LENGH ERROR 
261 000022 DDE= 2 SDATA COMPARISON DATA ERROR 
263 000024 EOP= 26 [END OF PASS 
3263 000026 ABO= 26 **C ABORT 
365 sEQUATES FOR FLAG WORD 
2267 000001 ININT= BITO :INPUT INT. REC. 
2268 000002 OTINT= BIT? ‘OUTPUT INT REC 
2269 000004 QRX= BIT2 [RX QUED /COMPL 
2270 000010 QTX= BIT3 *TX QUED/COMPL 
2271 000100 ERX= BIT SEXPECT TO GET A RX COMPLED 
3672 000200 ETX= BIT SEXPECT TO GET A TX COMPLETED 
2274 
2275 000020 TXM= 8174 sINDICATES TO TX INTERRUPT ROUTINE 
2276 STHAT IT IS TIME TO T RANSMIT BODY OF MSG. 
2277 000040 RXM= _—s BITS ; INDICATES TO RX INTERUPPT ROUTINE 
2278 :THAT IT IS TIME TO REC MSG BODY 
3679 000400 BCC= BIT8 [TIME FOR CRC CHECK. 
28! 001000 PAD= BITS sINDICATES THAT PAD MUST BE SENT 
2083 002000 INOVR= BIT10 ZINIT OVER 
2285 004000 FIRST= BIT11 sFIRST TIME FOR CTS 
2287 ; SPECIAL CLI CODES FOR ‘’CHAR'’ ARGUMENT IN CLI CALLS 
2288 > (COMMAND LINE INTERPRETER DEFINITIONS) 
2289 900000 CLIERR= 0 
2290 1 CLIEXI= 1 
2291 00000 CLIBR= : 
229, 00000 CLIBIF= 
229. 000004 CLISPA= 4 
000005 CLINUM= 5 
000006 CLIALP= é 
000007 CLIALN= 
0 CLIOCT= 8. 
1 CLIDEC= 9 
2 CLISTR= 10. 
DEFS FOR COMMAND LINE INTERPRETATION ACTION VALUES 
1 CLEARS1 
: CHECK= 
5 HLP=5 
CSHEXP= 
310 10 SETEXP=10 
311 11 


CZDCLA_DUP-11 DATA on 


CZDCLA.P11 19=MAR 
a 
14 14 
ge 
Bs 
se 
OR 
SSE 
$e 0000 § 

325 0000. 


nm 


fone 
CONICS 


EESELESS SGC 


i 
oO 
See 
NO 


Noo 


WWI 
SSSR A 


Ww 


N 4 


TEST MACY11 30A(1052)_ 23-MAR-82 16:47 PAGE 53 


GLOBAL EQUATES SECTION 


SIZE=12 
QcoPy=13 


;eeeee DEVICE DEPEND 
MODEM 


E 
$s 
I 
E 
C 
D 


sCLEAR TO SEND ( 
sDATA SET READY 


SEQ 52 


B 5 


SEQ 53 
CZDCLA_DUP~11 DATA COMM, LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 54 
CZDCLA.P11 1 “82 18:19 GLOBAL EQUATES SECTION 
x8 10000 DCD= BITi2 sDATA_CARRIER DETECT (CIRCUIT CF) 
9 RTS= BIT2 sREQUEST TO SEND (CIRCUIT CA) 
70 sgt RI= BIT14 sRING INDICATOR (CIRCUIT CE) 
a! 004 SRD= BIT11 sSECONDARY RECEIVE DATA 
15 
374 
375 
7 3 DEVICE SIGNAL 
7 000002 DTR= B1T1 sDATA TERMINAL READY 
78 000010 HDPLX= BITS sHALF DUPLEX 
379 000020 RXENA= BITS sRECEIVER ENABLE 
2380 000040 DSITEN= BITS sDATA_SET CHANGE ENABLE 
2381 000100 RINTEN= BIT6 sREC INT. 
Sane 000200 RXDONE= BIT? sREC DATA READY 
238 004000 RXACT= B1T11 sREC_ACTIV 
2384 000400 RESET= BIT sMASTER RESET 
385 001000 TXACT= BIT 3TX ACTIV 
386 000200 TXDONE= BIT7 3TX BUFFER EMPTY 
387 004000 TTLL= = =B1T11 sTTL LOOP BITC INTERNAL) 
2388 010000 CABLOP= BIT12 3CABLE LOOP(TURN AROUND) 
2389 000020 SEND= BIT4 3TX ENAB 
Saye 000100 TINTEN= BIT 2TX INT E 
391 000400 = BIT 3TX START OF MSG. 
2392 001000 TE BIT9 3TX END 0 ° 
2393 100000 TERR= 61T15 3TX ERROR 
2394 100000 RERR= 61715 sREC OVER RUN 
2395 010000 CRCOK= BITI2 sCRC CHAR OK 
2396 100000 CA= BIT15 sDATA SET CHANGE A 
2397 000400 STRIP= BIT8 zSYNC STRIP 
Seo6 000226 = 226 3 SYNC 


c 5 


SEQ 54 
CZDCLA_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) @3-MAR-82 16:47 PAGE 55 
CZDCLA.P11 1 82 18:19 GLOBAL DATA SECTION 
400 ~SBTTL GLOBAL DATA SECTION 
vid -SBTTL DEFAULT MESSAGE DEFINITIONS AND TABLES 
240 p++ 
404 3 THE GLOBAL DAA SECTION CONTAINS DATA THAT ARE USED 
405 3 IN MORE THAN ONE TEST. 
ss = 
<8 sMESSAGE BYTE COUNT TABLE 
410 002150 DMSGCT: 
411 00 138 000001 MSG ° EMS¢C-MSGO sBYTE COUNT OF MESSAGE 40 
tig 002152 000001 MSGIC: .WORD EMSG1-MSG1 sBYTE COUNT OF MESSAGE #1 
413 002154 000001 MSG2C: .WORD EMSG2-MSG sBYTE COUNT OF MESSAGE # 
414 002156 000001 MSGSC: .WORD G3 sBYTE COUNT SA 
415 0021 000100 MSG4 - WORD “Mm sBYTE COUNT 
2416 0021 000072 MSG5C: .WORD EMSGS-MSG5 sBYTE COUNT OF MESSAGE #5 
2417 002164 000101 MSG6C: .WORD s sBYTE COUNT OF MESSAGE #6 
2418 002166 000000 OPCNT: .WORD 0 sBYTE COUNT FOR OPERATOR SPEC'D MSG. 
239 002170 000001 MSG8C: .WORD EMSG8-MSG8 sBYTE COUNT OF RECEIVE BUFFER FILL PATTERN 
$053 sMESSAGE ADDRESS TABLE 
2423 002172 DMSGAD: 
2424 002172 002214 MSGO sADDRESS OF MESSAGE #0 
2425 002174 002215 MSG1 sADDRESS OF MESSAGE #1 
2426 002176 002216 MSG sADDRESS OF MESSAGE a 
2427 002200 002217 sADDRESS OF MES 
2428 002202 Bocese MSG4 sADDRESS OF MESSAGE #4 
24 002204 002520 GS sADDRESS OF MESSAGE #5 
2430 002206 00241 MSG6 sADDRESS OF #6 
2431 002210 00252 AY sADDRESS OF OPERATOR SPEC'D MSG. 
sess 002212 002642 MSG sADDRESS OF RECEIVE BUFFER FILL PATTERN 
2434 002214 000 MSGO: .BYTE 000 sMESSAGE OF ALL 0°S 
2435 002215 EMSGO: 
Se38 002215 377 MSGi: .BYTE 377 sMESSAGE OF ALL 1°S 
sts 002216 EMSG1: 
438 00 1g 252 MSG2: .BYTE 252 sMESSAGE OF ALTERNATING 1°S 
439 00221 a 
0 002217 125 MSG3: .BYTE 125 sMESSAGE OF ALTERNATING 0°S 
2441 002220 EMSG3: 
442 002220 MSG4: CCITT!’ 512-BIT (VS 3} Blt) TEs) PATTERN 
4435 002220 177605 157427 031011 «WORD 177603, 157427,031011,047321, 163715, 105221 ,143325, 142304 
444 00. 4 047 St 163715 105221 
tag 009520 $200 ; o1ai16 05 WORD  040041,014116,052606, 172334, 105025, 123754, 111337,111523 
i eset Ire ites ee ci | oo 
449 002260 0 145 137 «WORD 030030, 145064, 137642, 143531 ,063617, 135075 ,066730,026575 
gf ae Se a Bs 
452 00 01 27 070071 «WORD 052012,053627,070071,151172, 165044 ,031605 , 166632 .016741 
45 Be 15117, se 31605 
654 14 166632 016741 


455 002320 EMSG4: 


CZDCLA 


CZDCLA.P1 


a 


002320 


1 


11_ DATA COMM. LINK 
oO iasi? 


040445 


TEST 


057135 


dD 5 


MACY11 30A(1052) 23=MAR-82 16:47 PAGE 56 
DEFAULT MESSAGE DEFINITIONS AND TABLES 


MSG5: :"INTERPROCESSOR TEST PROGRAM'S (ITEP)’* MESSAGE 
.ASCII <177><177>/$A THE QUICK BROWN FOX JUMPED OVER THE LAZY D0G./ 


SEQ 55 


eASCIZ <15><12><001><177><177><177><177> 


EMSGS: 

MSG6: fee UMERICS (OR FUTURE COMM TURNAROUND MSG) 
ASCII /#S!"" B°()*4,-.0123456789: ; <=>?2@ABCDEF GHI JKLMNOPORSTUVWXYZ/ 
eASCIZ 2/C\]*_%? 

EMSG6: 


-EVEN 


S RRARAERAERARAEARAEREREEEEEEEEERAEREAEEEAKEERRAERREREKEEREEERERAREREEEEEEREE 


3THESE THREE STORAGE AREAS MUST NOT BE SEPERATED !!!! 
OPBFPT: .ASCII /%ZNZA/ 
OPBUF: .BLKB 8&2. 
OPEND 

3 THE ABOVE THREE LINES MUST BE KEPT TOGETHER 


§ RAERAEARARAEEAEEAEAKRAEEEEEEEEERAEEAEARARARARAEAAKRARARARARRERAAEARAAEEERARAEARER 
MSG8: -BYTE 33 sRECEIVE BUFFER FILL PATTERN 
EMSG8: ame 


sBUFFER FOR OPERATOR SPEC'D MESSAGES 


CZDCLA_DUP=-11 
CZDCLA.P11 


508 


ba we td SS I 


MIPIM PONPONIPINOTOT 


Nn 
w 
~ 
wm 


ma ati TEST 
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MACY11 30A(1052)_ 23-MAR-82 16:47 PAGE 57 
DEFAULT MESSAGE DEFINITIONS AND TABLES 


SEQ 56 


thea Pott ine’ 18° thé’ AREA’ OSE6’ 16° thaNSai AND’ 7 fie"; 
R MSGS. AND THE START STACK. ACK SEQUENCES 


THE TRANSMIT HEADER MESSAGE WILL BE STORED HERE 
hibmsG:  .BYTE FILLER 
HDMID: .BYTE 201 [MESSAGE TYPE WILL BE STORED HERE 
HDMTYP: t1F CONTROL MESSAGE, TYPE IS STORED HERE 
HDMCC: .WORD 0 SCHAR COUNT GOES HERE 
HDMREP: .BYTE 1 SRESPONSE NUMBER 
HDMNUM: .BYTE 1 MSG. 
HDMADR: .BYTE 1 : ‘ 
HSMSE : 
EVEN 

HDMC: .WORD 6 :CHARACTER COUNT OF HEADER 

THE RECEIVED HEADER WILL BE STORED HERE 
RiiDMSG: BYTE 0 
RHDMID: .BYTE 201 :MESSAGE TYPE GOES HERE 
RHDTYP: SIF CONTROL MESSAGE, TYPE GOES HERE 
RHDMCC: .WORD 0 :BYTE COUNT GOES HERE 
RHDREP: .BYTE 1 3RESP NUM 
RHDNUM: .BYTE 1 NUM 
RHDADR: -BYT 1 SADDRESS OF TRIB 


CZDCLA DUP-11 
CZDCLA.P11 


5 


3 
g 


i 


TEES 


prporsensnestenaneyneae ney 
LAVAL IP ANAL LEE a 


PRR E RAS 


o 


ane dy! 
UNASS 


3 

co 

ee 

ae 

©Z 
=) 
mm 
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= 


Sooooo0oo 
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MACY11 30A(1052) 23-MAR-82 16:47 PAGE 58 
DEFAULT MESSAGE DEFINITIONS AND TABLES 


:COMMAND LINE BUFFER, DATA LOCATIONS AND MESSAGES FOR ACTION ROUTINES 


SEQ 57 


CMDBUF: .BLKB 82. sBUFFER FOR OPERATOR COMMANDS 
KEYWD1: .WORD 0 THIS LOC WILL =1 IF CLEAR TYPED, 2 F OR SHOW. 
QUALFG: .WORD 0 ‘THIS LOC HOLDS ola ir fen VALUE (SITE oR PepeY) 
QUALVL: .WORD 
HLPTAB: .WORD 4HLP1 

.WORD 4HLP 

;WORD 4HLP 

;WORD HLP3A 

<WORD 4HLP 

;WORD HLP4A 

<WORD 4HLP 

-WORD HLP6 
HLPEND: 
» INDEX TABLE FOR REPORT 'RPT>’ HELP MESSAGES 
RHLPTB: .WORD RHLP1 

;WORD RHLP 

-WORD RHLP 

;WORD RHLP4 

“WORD  RHLPS 

<WORD HL 
RHLPEN: 


SHTYTB: .WORD SHTYPO,SHTYP1,SHTYP2,SHTYP3,SHTYP4,SHTYP5S ,SHTYP6,SHTYP7 


3 THE List OF BYTES BELOW ARE THE FIRST BYTES OF THE PREDEFINED MESSAGES 
3 USED TO “‘SHOW'* THE TRANSMIT AND COMPARE BUFFER CONTENTS. 


SHTAB: .BYTE 0,377,252,125,203,177,043 


SHTEND: 
-EVEN 
MODES: .WORD M00 sADDRESSES OF MODE TYPES IN ASCII 
-WORD 401 
eWORD MO. 
eWORD MO. 
WORD 
eWORD M05 
WORD 
LOOPS: .WORD LPO sADDRESSES OF LOOP TYPES IN ASCII 
eWORD LP! 
eWORD LP. 
eWORD LP 
WORD 
COMMAND LINE TRAVERSE LOCATIONS (USED BY ‘PSTRV*) 


4 sLOC. TO HOLD ADDR. OF CMD LINE BUFFER 


PSBUFA: .WORD 
PSTREE: .WORD 3LOC. TO HOLD ADDR. OF PARSING TREE 


CZDCLA_DUP=-11 


CZDCLA.P11 


af 


Tag 


MACY11 Dg 23-MAR-82 16:47 PAGE 59 
AULT MESSAGE DEFINITIONS AND TABLES 


PSACT: .WORD sLOC. TO HOLD ADDR. OF PH Sys ROUTINE 

PSCNT: .WORD sLOC. TO BE A COUNTER LOCATION 

PSNUM: .WORD sLOC. TO HOLD RIC VALUE FROM PARSE 
PSRADX: .WORD sLOCc. TO gone RADIX USED(LO) AND +/-(HI BYTE) 
PSNNUF: .BYTE RETURN =0 IF ENOUGH OF COMMAND FOUND 
P$GDBD: .BYTE RETURN CODE 0 IF NO ERROR FOUND 


SEQ 58 





SEQ 59 
CZDCLA nN, ATA COMM. LINK TEST MACY11 30A(1052) 23-MAR=82 16:47 PAGE 60 
CZDCLA.P1 -82 18:19 MESSAGE BUFFERS AND POINTER TABLES 
89 .SBTTL MESSAGE BUFFERS AND POINTER TABLES 
315 1 TXBUF: .BLKB BUFLIM ; TRANSMITTER BUFFERS 
1 1 RXBUF: .BLKB BUFLIM :RECEIVER BUFFERS 
51 1 CMPBUF: .BLKB ®BUFLIM :COMPARIS SON BUFFERS 
0061 36 PTRTAB: .BLKW MSGLIM* :TABLE FOR MESSAGE ADDRS. & BYTE COUNTS 
44 PIRI: “BLKW MSGLIM® 
006340 000036 TR23: MSGLIM* 
006434 PTREND: : END OF MSG. PTR. TABLE 
006434 000002 .BLKW 2 sFILLER FOR OVERFLOW OF RX POINTER TABLE 
006440 000000 RXPTR: .WORD 0 RECEIVER MESSAGE POINTER 
006442 000000 TXPTR: .WORD 0 ANMITTER BUFFER POINTER 
000000 CMPPTR: .WORD 0 0 ARISON BUFFER POINTER 
000000 TOT: .WORD 0 3 CMP MSG TOTAL 
5 006450 000000 CTOTCC: .WORD 0 COMPARE BUFFER CHAR. COUNT 
2606 006452 000000 URAD: .WORD 0 SCURRENT ADDR OF CMP BUFF TO ADD AT 
2608 006454 000000 TXA: .WORD 0 :DEVICE Tx ADDR 
2609 0064 DVTCC: .WORD 0 *DEVICE TX CHAR COUNT 
2610 iver DVTCT: .WORD 0 3DEVICE 1X MESSAGE COUNT 
2611 006462 TXMTOT: .WORD 0 G TOTAL 
2612 006464 900000 TTOTCC: .WORD 0 °TX BUFFER CHAR. COUNT 
sei GOG666 TCURAD: .WORD 0 [CURRENT ADDR. OF TX BUFF TO ADD AT 
615 006470 000000 DVRXA: .WORD 0 :DEVICE RX AD 
I 006472 000000 DVRCC: .WORD 0 [DEVICE RX CHAR COUNT 
2617 006474 000000 DVRCT: .WORD 0 [DEVICE RX MESSAGE COUNT 
2618 006476 000000 RXMTOT: .WORD 0 *RX MSG TOTAL 
$e 006500 000000 LNCNT: .WORD ZNUMBER OF OPERATOR AWAKE MSGS 
1 006502 000000 : WORD SOPTTIONAL VARIABLE LOCATION 
Q 006504 CNT: .WORD [PASS COUNTER 
006506 ERRCNT: .WORD 0 [ERROR COUNTER 
4 906510 STADD: .WORD [START ADDR. 
5 512 000000 ENADD: .WORD [END ADDR. FOR DUMP 
006514 000000 BYTBIT: .WORD [BYTE BIT FOR DUMP ROUTINE 
8 ZOTHER MESSSAGE RELATED STORAGE LOCATIONS 
006516 MSGTYP: .WORD 0 sTYPE OF DATA 0=0'S,1=1°S,2=10°S,3=01'S 
31 -4=CCITT 5S6ul ck FOX, 6=ALPHA/NUM, 7=OPER 
0065 CURCC: .WORD 0 :TX/RX/CAP CHAR COUNT 
3 522 CPTRR: .WORD S CUPRENT RX POINTER 
¥ 006524 CPTR:  . WORD *CURRENT POINTER 
5 5 ¢ “WORD 3 CURRENT TX/RX/CMP START ADDD : 
5 TOTCC: .WORD STOTAL CHAR COUNT NOT MORE THEN "BUFLIM’ 
36 5 OFSET: .WORD ZOFFSET COUN 
338 5 TEMP:  < WORD S TEMPORARY LOCATIONS (USED A LOT) 
9 5 TEMP1: .WORD 
0 54 TEMP2: <WORD 
1 54 TEMP3: WORD 
2 TEMP4: :WORD 
346 TEMPS: <WORD 
55 CONOTM: . WORD :CONTROL OUT ERROR MSG. ADDRESS 








I 5 
CZDCLA_DUP=11 DATA C LINK TEST MACY11 he 23-MAR-82 16:47 PAGE 61 
CZDCLA.P11 ISHARES 1819 GE BUFFERS AND POINTER TABLES 


5 S0633¢ CONTIN: .WORD sWORD FOR CONTROL IN 

§ 35 GOOD: .BYTE sBYTE TO HOLD EXPECTED MESSAGE DATA BYTE FOR ERR REFORT 
006555 : IVED 

: 006556 F 


MESSAGE + BATA BYTE FOR ERR REPORT 


BAD: es Y 
DATAWORD: . WORD STORAGE LOCATION FOR TRANSMIT 


SEQ 60 


J 5 


CZDCLA_DUP=11 DATA COMM. LINK TEST MACY11 pe 23-MAR-82 16:47 PAGE 62 
CZDCLA.P11 1SSHARCBS 18:19 E BUFFERS AND POINTER (ABLES 


sMORE INDEPENDENT CODE STORAGE LOCATIONS 


SEQ 61 





00656 LOGUNT: .WORD 0 :LOC. TO HOLD LOGICAL UNIT NUMBER 
0065 PCADD: .WORD 6 *LOC. HOLD PC OF CALLING ROUTINE 
0065 DCLFLG: .WORD :CLEANUP & EXIT FLAG -1 = EXIT TEST 
906966 RESFLG: .WORD 0 tLOC TO HOLD FLAG (=1) THAT A RESTART WAS GIVEN 
006570 000000 TYP: .WORD 0 SDCLT MODE OF OP RATION Y 
3 (Q=REC“ONLY, 1=TXONLY, =PASSI VE-LOOPBK, 
‘ S=ACTIVE=LOOPBK STALK. 6=LISTEN) 
006572 000000 MLTYP: .WORD 0 ‘MAINTENANCE LOOP T {PE (O=NONE bes INT TERNAL TTL, 
: 2=CABLE, 3=MODEM-ANALOG silt 
: 4=MODEM-DIGITAL LOOPBK (RERO ed 
006574 000000 FHDPLX: .WORD 0 [FULL OR HALF DUPLEX FLAG CHeFULE Enon P-TABLE) 
006576 000002 PARAM: .WORD 2 :PR PARAMETERS 
+ BITO= STATUS MSGS TO OPR PRINTED (1=YES) 
; BIT1= DATA CHECKING DONE ON RCVD MSGS (1=VES) 
: BIT¢s ECHO (TRANSMIT) RCV'D MSG. (PASSIVE) (1=YES) 
+ BIT3= MODEM STATUS CHECK (1=YES) 
+ BIT4= CRC CALC./CHECK DONE (1=YES) 
: BITS= PROTOCOL EMULATION (1=YES) 
: BIT6= PROTOCOL IS RUNNING 
: BIT7= FATAL FAULT IN PROTOCOL--ABORTING! ! 
006600 000000 RPASS: .WORD 0 sPASS NUMBER FROM RUN COMMAND 
006602 000000 FLAG: .WORD 0 [DEVICE FLAG WORD 
:MODE DISPATCH TABLE 
006604 032210 MODE: .WORD RXONLY ;RX ONLY DISPATCH 
006606 032242 “WORD TXONLY :TX ONLY DISPATCH 
006610 032302 “WORD PLCK ;PASSIVE LOOP BACK DISP 
2680 006612 0532336 “WORD ALCK ACTIVE LOOP BACK DISP 
2681 006614 033570 “WORD DLL [DOWN LINE LOAD DISP 
3682 006616 033614 “WORD TALCK :TALK MODE DISPATCH 
683 006620 034060 “WORD LISCK :LISTEN MODE DISPATCH 
5 
.SBTTL CLOCK TABLES, EVENT LOG AND POINTERS 
2686 006622 000000 CLKCSR: .WORD 0 sCLOCK CSR ADDRESS 
2688 4 000000 LKBR: .WORD 0 *CLOCK INTERRUPT LEVEL 
6 000000 CLKVEC: .WORD 0 [CLOCK INTERRUPT VECTOR 
90 006630 000074 CLKH2: .WORD 60. ZCLOCK’S HERTZ RATE 
se 006632 CLKEN: <WORD 0 :CLOCK’S CSR VALUE TO INTRPT. ENABLE IT 
93 006634 TIMMIN: .WORD :PLACE TO KEEP TIME-SINCE-START 
9% 006656 aad TIMSEC: .WORD 6 
9 0 000000 TIMTCK: .WORD :PLACE TO KEEP # OF TICKS/SEC 
97 2 000000 TIMER}: D O sEVENT TIMER #1 (TICKS) 
98 Doseds 000000 TIMER2: .WORD ; T TIMER me (TICKS) 
699 000000 TIMERS: .WORD cE VENT TIMER #3 (SECONDS) 








kK 5 
D 1 TA . LINK TEST Y11 30A(1052)_ 23-MAR- 16:47 PAGE 63 
CZDCLA 1A CO gt 18 ES MAC . 2). 2 82 16: GE 6 


SEQ 62 


CZDCLA.P1 LOCK TABLES, EVENT LOG AND POINTERS 
701 pEVENT LOG TABLE AND ITS NEXT ENTRY POINTER 
70 28 O0665¢ EVT «WORD 22 VILOG ;POINTER TO NEXT FREE SPACE IN EVENT LOG 
70 5 EVTLOG: -BLKW 25. EVENT LOG 
Ain} EVTEND: .BLKW 1. ;APPROXIMATE END OF EVENT TABLE (ALLOWS CIRCULAR QUE) 
5/08 -SBTTL MODEM DATA SECTION 
$o08 007556 000000 MODS: .WORD 0 MODEM STATUS 


S| 
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CZDCLA.P11 19-MAR=82 18:19 MODEM DATA SECTION 


SEQ 63 


711 : 

a 3 TABLE OF MODEM SIGNAL BIT DEFINITIONS 

714 007560 020000 MOBITS: .WORD CTS sCLEAR TO SEND (CIRCUIT C 

715 007562 001000 «WORD DSR DATA SET READY (CIRCUIT CC) 

716 007564 010000 «WORD DCD sDATA CARRIER DETECT (CIRCUIT CF) 
2717 007566 000004 «WORD RTS sREQUEST TO SEND (CIRCUIT CA) 
718 007570 040000 «WORD RI sRING INDICATOR (CIRCUIT ) 

719 007572 004000 «WORD SRD SECONDARY RECEIVE DATA (CIRCUIT SBB) 
sige 007574 MOBITE: 
355 s TABLE OF ADDRESSES OF MODEM SIGNAL MESSAGE POSITIONS 

2724 007574 016502 MOMSGS: .WORD EVMCTS sCLEAR TO SEND (CIRCUIT CB) 

2725 007576 016506 -WORD EVMDSR sDATA SET READY ( 

2726 007600 016512 «WORD EVMDCD sDATA_CARRIER DETECT (CIRCUIT CF) 
727 007602 016516 «WORD EVMRTS sREQUEST TO $ 

728 007604 g1036¢ -WORD EVMRI sRING INDICATOR (CIRCUIT CE) 
siee 007606 016526 «WORD EVMSRD SECONDARY RECEVIE DATA 

2731 sTABLE OF ADDRESSES OF EVENT DESCRIPTION MESSAGES 

sie : ORDER CORRESPONDS TO MESSAGE TYPE VALUES 

2734 007610 015107 EVTLST: .WORD EDTXQ ;TRANSMIT MESSAGE QUEUED 

2735 007612 015133 -WORD EDTXC ; TRANSMIT OF MESSAGE COMPLETE 

007614 015162 WORD EDRXQ  ;RECEIVE MESSAGE SPACE QUEUED 

2737 007616 015207 -WORD EDRXC  ;MESSAGE EM ~ RECEIVE COMPLETE 

2 007620 013653 WORD EDDER  ;DEVICE INFORMATION 

2739 007622 015 WORD EDDVI DEVICE INITIALIZE STARTED 

2740 007624 01525 WORD EDDCK DA gat ISON DONE 

2741 007 015434 -WORD EDMOS : MODEM STATUS CHANGE 

2742 007630 015330 WORD EDDLE DATA COMPARE pevste ERROR 

2743 007632 015365 -WORD EDDDE DATA ws DATA ERROR 

2744 007634 015420 -WORD EDEOP END OF P 

sre? 007636 015460 «WORD EDABO ;“C 

347 sLOCATIONS USED DURING EVENT REPORTING 

749 007640 000000 EVTSEC: .WORD 0 ; TEMPORARY LOCS TO KEEP EVENT TIME WHILE REPORTING 
750 007642 000000 EVTMIN: .WORD 0 

751 007644 000000 EVITCK: :WORD 0 

752 007646 000000 EVTADD: .WORD 0 : TEMP. LOC. TO HOLD ADDRESS DURING EVENT REPORTING 
75 7650 000000 EVTBCT: .WORD 3 ; E COUN 

es! 7652 000000 VTTMP: .WORD : ™ ** OTHER DATA "* 4s * 
Le sREPORT CODING DISPATCH TABLE 

758 007654 022300 RPTDSP: .WORD RPTTXQ ;TRANSMIT QUEUED ENTRY DECODING 

759 007656 022500 ~WORD RPTTXQ TRANSMIT COMPLETE oerey DECODING 

760 007 022300 «WORD RPTTXQ ;RECEIVER QUEUED ENT 

761 007662 0 309 -WORD RPTTXQ ;RECEIVER COMPLETE ENTRY DECODING 

roe 007664 02235 -WORD RPTDER ;DEVICE ERROR ENTRY 

76 BO7686 0 275 “WORD RPTDVI ;DEVICE INIT ENTRY DE 

7 7670 02 -WORD RPTDCK ;DATA COMPARISON ENTRY DECODING 

765 007672 333 18 WORD RPTMSC REPORT MODEM STATUS CHANGE 

766 007674 64 WORD RPTDLE ;DATA COMPARISON LENGH ERROR 


m 5 


SEQ 64 
CZDCLA aa — com. LINK TEST MACY11 30A(1052)_ 23-MAR-82 16:47 PAGE 65 


CZDCLA.P 18:19 MODEM DATA SECTION 

2767 7676 0 WORD RPTDDE ;DATA ae DATA ERROR 

768 007700 0398) WORD RPTEOP 3END OF PASS 

re 00 00770 WORD RPTABO ;*C ABORT 

aa OOr7e 000008 DEV1:  .WORD 8 be # LOCS TO HOLD DATA FOR EVENT REPORTING 

772 0077 000 DEV2:  .WORD AND SHOW MODE,... SUBROUTINE 
2773 007710 000000 DEVS: .WORD 0 
2774 007712 000000 DEV4: .WORD 0 


CZDCLA 


CZDCLA.P1 


MORIMONONY 
(C9 00 Co Co Gd Oo Co Co Co CO 
ad ed ed eed ed end ed ed 


MEWIN =O OONOAUSWN 





eS ead oad ad eed ed Bart aS eed et SD 


1 
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MACY11 30A(1052) 23-MAR-82 16:47 PAGE 66 
COMMAND 


LINE ACTION TREE 


~SBTTL COMMAND LINE ACTION TREE 


! ACTION ! CHAR CODE ' 


! MISS DISPLACEMENT ! 


! NEXT NODE DISPLMNT ! 


Y ASCIZ MATCH STRING ! 
(EVEN) 














CLITRE: 
:FIRST KEYWORD 
CLI CLISPA,0,N10$ :SKIP ANY LEADING SPA 
N10$: CLI <*2>,HLP, : FIRST NON-SP 
CLI CLIEKI,0 : IF YES DO “HLP’* AND 
N62$: CLI CLISTR.HLP,N43$,<"HELP'> 3ELSE, IS FIRST WORD 
CLI CLIEXI.0 : IF YES DO ‘HLP’' AND 
N63$: CLI CLISTR.PRNT ,.N4G4S$,<°PRINT'> SELSE, IS FIRST WORD 
CLI CLIEXI. : IF YES DO 'PR 
N66$: CLI CLISTR.EXIT,N4G5$,<"EXIT"> ZELSE. IS FIRST WORD 
CLI CLIEXI. : IF YES DO ‘EXIT 
N6S$: CLI CLISTR,RUN,N46$,<°RUN'> ZELSE, IS FIRST WORD A 
CLI CLIBR,O, : IF YES DO “RUN 
N46$: CLI CLISTR,NOTNUF .N6OS,<*DUMP*> TELSE, IS FIRST WORD A ‘DUMP’’ 
CLI CLIBR,O,N : IF YES GOTO N80S 
n460$: (CLI CLISTA, CLEAR, -N208 <"CLEAR'> ZELSE, IS FIRST WOR 
CLI -N 00$ : IF YES DO ‘CLR 
N20$: (CLI SELSE, IS FIRST CHAR. 
cll cListe, shou A $.<"HOW'> 3 IF YES IS REST OF 
CLI : _ IF YES, DO “SHOW 
N25$: CLI Hee ONNSOS,<*ET"> 3 ELSE. IS REST, OF 
CLI BR,6,N110$ ; IF YES, 
N30$: (CLI LIER ERA. 6 SOTHERWISE “ILL CMD 


;SAMPLE CLI TREE NODE — _GALWAYS AT LEAST 1 WORD) 


ONLY IF *MISS'* ARGUMENT DEFINED 
ONLY IF *‘ASCII'* ARGUMENT DEFINED 
ONLY IF *‘ASCII'* ARGUMENT DEF INED 


sSECOND KEYWORD (MODE=) FOR RUN COMMAND 


ME: GL ELISRGGE aos cme'> be P BING Ss 

cL cListR ATVAQD .NB2S,<"ACTIVE'> 318 NEXT WORD ‘ACTIVE,’ 
nezs: CLI ESTA Pa oN83S,<"PASSIVE'> 1S NEXT GORD ‘PASSIV 
ness: CLI cLISTA, REcngo .necs, <"RECEIVE'> 5 ee ‘Raeee 
nes: CLI tet, tt 1SADD .NBSS,<*LISTEN"> £18 NEXT GORD au 
ness: CL HEN ry -N86S, <"DOWNLINELOAD*> veil RENT SOR 
N86$: CLI  <"T>,6,8 31S NEXT CHAR A 


SEQ 65 


B 6 


SEQ 66 
CZDCLA_DUP-11 DATA coo i LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 67 
1 “82 18:19 COMMAND L 


CZDCLA.P11 LINE ACTION TREE 
8 10310 CLI CLISTR, TR »NB7$,<"RANSMIT'> ; IS REST OF WORD ‘'RANSMIT' 
8 10 H: CLI ) ‘38° IF YES, DO “'TRANSM''/BR wi15$ 
8 10 N87$: CLI 186 thnoe, N30$,<*ALK"> + IS REST OF WORD ' 
835 010344 CLI tar. 6,N115$° ; if wits DO ''TALK'',BR N115$ 
8s : » ERROR = EXIT 
2838 sSECOND KEYWORD (FOR CLEAR R OR SHOW) 
839 10350 N100$: CLI CLISPA, ;SKIP LEADING SPACES NONE=ERR 
840 010354 N102$: (CLI CLISTR. Ona TS 1048,<"EXPECTBUFF#S x 
841 010376 CLI CLIEXI.O : IF VES, be SCERCEXP. exit 
84 910400 N1046$: CLI CLISTR,CSHTRN,N30$,<° TRANSMI TBUFF *> TIS NEXT "TRANS... 
B43 010424 CLI CLIEXI.0 IF YES, oo. CLR-TRN, EXIT 
2844 tIF NO - ERROR - EXIT 
sete 
284 sSECOND KEYWORD (FOR SET) 
2848 010426 N110$: CLI CLISPA,0,N30$ 
2849 0104 N171$: CLI CLISTR,SETEXP,N112$,<"EXPECT'> 
2850 010450 CLI CLIBR,O,N 
2851 010454 N112$: CLI CLISTR, SETTRN,N30$,<" TRANSMIT "> 
385 010474 CLI CLIBR,O,N120$ 
2854 :GET ADDRESSES FOR DUMP COMMAND 
2855 010500 N50$: CLI LIALP,0,N51$ 
2856 010504 N51$: CLI ELT SBA‘O. N52$ 
2857 010510 N52$: CLI LIOCT .DAPS ,N30$ 
2858 010514 CLI <*=>, NOTNUF .N125$ 
2859 010520 CLI CL1OCT .DAPE .N30$ 
2860 010524 CLI <} N125$ 
2861 010530 CLI MPOLNSOS 
2862 010534 CLI <iB> 0, nea. SOs 
286. 
2864 ZQUALIFIERS FOR THE RUN COMMAND 
2865 010540 N115$: CLI CLIALP, 0.1148 
2866 010544 N114$: CLI <"/>, NOTNUF ,N125$ 
2867 010550 CLI CL ISfR.NO wilesee "NO'> 
2868 010562 N116$: CLI <*C>,0.N1 
2869 010566 CLI EListR’ CHECK,N117$,<"HECK'> 
2870 010602 CLI CLIBR,O,N115$ 
$879 
2873 010606 N117$: CLI CLISTR, STATUS,N118$,<"STATUS'> 
3874 010624 CLI CLIBR,O,N1 133 
875 0106 N118$: CLI CLISTR étno N119$,<"ECHO"> 
387 010644 CLI CLIBR,O,N115$ 
2878 010650 N119$: CLI <'P>,0,N132$ 
2879 010654 CLI CLISTR PROTO N130$,<*ROTOCOL'> 
2880 010672 CLI CLIBR,0,N115$ 
881 010676 N130$: CLI CLISTR 6.N308.<"ASS*> 
B82 10710 CLI CLIBR,6,N150$ 
884 010714 N132$: CLI CLISTR,MOSC .N131$,<°MODEM'> 
885 010730 CLI CLIBR,6,N115$ 
887 010734 N131$: CLI CLISTR,0,N30$,<*LOOP'> 


CZDCLA_DUP=-11 


CZDCLA.P11 
2888 010750 
2889 

890 
891 010754 
$8 
89 
894 p10? 
895 010774 
5e38 911300 
897 011016 
898 811086 
899 0110. 
sa ik 
$208 011062 
011076 
so0e 911398 
5 11138 
2906 0111 
2907 0111 
2908 Bites 
2909 0111 
2910 
2911 011166 
2912 011172 
29135 011176 
2914 011202 
$912 011206 
16 O11212 
say 011216 
18 
2919 
2920 011220 
21 011 $3 
4 011 
2925 011244 
24 311520 
25 011264 
$358 
27 
8 011370 
11274 
011300 
4 
2935 011304 
34 
35 
36 011310 
37 011332 
38 11338 
39 01135 
g Ss 
3 11404 
11426 


1 


ATA COMM. LINK TEST 


-82 18:1 
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MACY11 30A(1052) 23-MAR-82 16:47 PAGE 68 
COMMAND LINE ACTION TREE 


CLI CLIBR,O,N140$ 


3sGET MESSAGE TYPE FOR SET MESSAGE COMMANDS 
N120$: CLI <'=>,0,N30$ 


SEQ 67 


: _ LOOK FOR DEFAULT MESSAGE NAME 
N60$: CLI CLISTR, CMSG1,N61$,<°ONES'> 
CLI CLIBR,O,N121 
N61$: CLI CLISTR, CMSGO N62$,<" ZEROES'> 
CLI CLIBR,O,N 
N62$: CLI CLISTR, CMSG2 ,N63$,<°1ALT'> 
CLI CLIBR,O,N121 
N63$: CLI CLISTR, CMSG3,N64$,<"OALT"> 
CLI CLIBR,O 
N64$: CLI CLISTR gCRsg3 N65$,<°ITEP'> 
CLI CLIBR 
N65$: (CLI cLiBr.6 ens N66$,<"CCITT'> 
CLI CLIBR,O,N1 
N66S: cL cLISTR, ines, N67$,<"ALPHA'> 
N67$: CLI cl iBr.6 hieis N68$,<* TRANSMIT "> 
CLI 18R,0,N125$ 
; LOOK FOR QUOTED MESSAGE 
N68$: CLI ** ,OPRMSG N30S 
N70$: CLI <"*>°ENDQO,N71$ 
CLI CLIBR,O,N121$ 
N71$: CLI LISPA,O,N72$ 
N72$: cL CLIALN,O.N73 $ ZONLY A=Z,SP,TAB, OR 0-9 BETWEEN ''S 
N73$: (CLI CO EER BADCHR ;PRINT ERROR IF NONE LEGAL CHAR FOR ‘"*S 
3GET QUALIFIERS (SIZE oR copy) FOR SET MESSAGE COMMANDS 
N121$: CLI CLIALP 
N123$: (CLI Wisse 
CLI fLastn SIZE *N122$,<"SIZE'> 
CLI CLIBR,OLN 
N122$: CLI CLISTR QcoPy N30$,<*COPY'> 
CLI CLIBR,6,N126$ 
sNUMER FOR SIZE OF COPY 


N126$: CLI 
CLI SL Ipee NON 
CLI CL18R,6, Nut sngOs 


3GET MAINTENANCE Bs vee FOR RUN ‘‘LOOP’’ QUIALIFIER 
N140$: CLI =>,0,N30$ 


N141$: cL CLISTRe ig er reen > 

N142$: cL ELST te ,N143$,<"CABLE'> 

wi43s: CLI Eten: mnTog recers toc ODER”? 

N1446$: CLI ctiBR, Oi .N30$,<"REMOTEMODEM' > 
CLI CL16R.6, wriss. 





CZDCLA_DUP=11 DATA on 


LINK TEST 
CZDCLA.P11 1 2 18:19 


51 
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COMMAND L 


CL 
CL 


I 
I 


D 6 


NE ACTION TREE 


fLIDES. PASC 
CLIBR,O,N 


CLIEXI,0 


GET St -_ prince FOR R Aes RUN QUALIFIER 
O$: CLI 


$5 gus0s 


CZDCLA DUP-11 


CZDCLA.P11 1 


460 

011462 

9 011464 

70 011466 
71 
ie: 

011470 
74 
2975 
3 
38 

011472 

1 011474 

011476 

011500 

011502 

5 011504 

011506 

7 gt12i9 

11512 

gtiete 

ti 

Bs O11322 


ATA COMM. LINK TEST 
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COMMAND 


LINE ACTION TREE 


sDEVICE DEPENDENT STORAGE LOCATIONS FOR 


; CURRENT DEVICE PARAMTERS 


RXCSR: 

PARCSR: 

RXDBUF : 

TXCSR: 

TXDBUF : 

INVEC: 
E 


OUTVEC: 
INTPRI: 


DUPPAR: 


ooo 


100226 


SOoooooooooooeo 


eRece ha grays  eESTER 


TATUS R 
3REC EIVE DAT A BUFFER 

3 TRANSMIT STATUS REGISTER 
TRANSMIT DATA BUFFER 


3 INPUT _INTERRUPT VECTOR ADDRESS 
ZOUTPUT INTERRUPT _ ADDRESS 
z INTERRUPT PRIORITY 


sTHIS WORD IS BROKEN DOWN AS FOLLOWS 
BITS 0-7 =SYNC WORD 
7BIT 9 = CRC ENABL 


sBIT 15 = DDCMP MODE 
CURRENT MODEM 
3 IMAGE OF RXCSR 
2 IMAGE OF RXDBUF 
MSG PTR.FOR HEADER OR CONTROL 
[MSG COUNTER OR CC 


ZSYNC CHAR COUNT. 
3SYN c a Fg TSOM BIT. 


COUNT OF HARD ERRORS 
3 1=REMOTE NODE ITEP,O=NON ITEP 


SEQ 69 


F 6 
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-SBTTL GLOBAL TEXT SECTION 


SEQ 70 


p++ 

3 THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
3 MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

3 MORE THAN ONE TEST. 


.SBTTL DEVICE SUPPORTED 
: NAMES OF DEVICES SUPPORTED BY PROGRAM 


See Seserexeeaees 


011524 DEVTYP <DUP=11> 
011524 LSDVTYP:: 

301 g113 4 052504 026520 030461 eASCIZ /DUP=11/ 
m3 0115 EVEN 

1 

3 .SBTTL PROGRAM IDENTIFICATION 

18 : TEST DESCRIPTION 
3020 011534 ; DESCRIPT <DUP=11 DATA COMM LINK TEST > 
30 1 011534 LSDESC:: 

4 011534 052504 026520 030461 .ASCIZ /DUP=11 DATA COM 
302 011542 042040 052101 020101 

% 011550 047503 046515 046040 

25 011556 047111 020113 042524 

26 011564 052123 000040 
302 EVEN 
3028 EVEN 


SSSS 
28S 










ae 
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moron 
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RIGS 


25 


hon 
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Ww 


ReneS Sf 


eS 
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ATA COMM. LINK 
-82 18:19 
gene as 
a8 a 
047045 ‘3 
7065 044 
b47048 Bete 
7945 3 $32 
a 
045 516 
ss Bee 
061862 052114 
040 046103 
Gud 031120 
nash 934103 
051440 et 
040 042523 
020040 052040 
040 0 
040 O 2392 
020040 04644 
040 020040 
045 ooe 6 
104 89619 
114 043517 
054105 052111 
110 G46103 
oul te 
047045 04044 
Bs He 
11 $319 
moi Os5i 
ou1903 Oss1T! 
101 50114 
117 0511 
Oh e35¢ $3 
051124 101 
130 95130 
0475 $| ; 
t 4 H 1 
044514 052123 
04 oo73t7 
111 52116 


TEST 


8 
Wis 
“ 


SSoeoosses 
NN 


LJ 
wn 
Of QS NINN 


RARER 
No= 
SVRSS==SSRS 


MUININININWM UI 
gov 
Sins hs 
Sok LHL 


RRSUARARLSAS 


BARS 
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FORMAT STATEMENTS, MESSAGES, AND ASCII INFO 


GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO 
/DCLT>/ 
/RPT> 


2NUM TOO B1G?/ 


/ENZA2ILL_CHR 2,0-9 
/3N%A?'S1ZE=0"" NOT VALID?/ 
T & EXPECT LIST 


ANSAI MUST BE IDENTICAL FOR LOOP?/ 
eens IS DCLT. TYPE 


OR *'?°' FOR DETAILS/ 


$:/ 
/ CLEAR OR SHOW EXPECTLIST OR TRANSMITLIST/<15><12> 
/ PRINT/<15><12> 
/ EXIT/<15><12> 
2? DUMP START-END/B? 
? SET EXPECTMSG OR TRANSMITMSG=TYPE/SIZE=N OR /COPY=N? 
/ SET EXPECT=TRANSMIT/ 
? TYPE=ONES ZEROES LAAT OMT ITEP, CCITT ALPHA? 
9 


OR SP =A- ro e N 

? RUN MODE=MTYP/LOOP=LTYP/CHECK, PROTOCOL STATUS .ECHO.MODEM.PASS=N? 
7 MTYP=TRAN,REC,ACT,PAS, TAL,LIS,DOWN/<15><12> 

/ LTYP=INT,CAB,LOC,REM/ 


/ENZATYPE °H"* OR *°?"* FOR HELP! / 
/DCLT REPORT CMDS: 

/LOG_= PRINT DCLT EVENT LOG/ 
EXIT REPORT LEVEL/ 


Is / 
/SW = PRINT DDCMP COUNTERS? 
oo, /OF F SET=NN(O)? 


DCMP COUNTERS VALID ONLY WITH PROTOCOL SELECTED./ 


/ 
2ENZAMSG: TYPE=ZTZA/SIZE=2D3? 
hy yd 


/OPR_SPEC/ 
/RECEIVE/ 
/TRANSMIT/ 
/PASSIVE/ 
/ACTIVE/ 
/DOWNL INELOAD/ 
/TALK 
/LISTEN/ 
?/LOOP=? 

? INTERNAL? 








eae. 2 a 
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CZDCLA.P1 FORMAT STATEMENTS, MESSAGES, AND ASCII INFO 
913744 it 105 LP2:  .ASCIZ 2CABL 
1370 14 514 LP3:  ASCIZ 2LOCALMODEM? 
ot 122 8 52117 LP4:  .ASCIZ ?REMOTEMODEM? 
014001 116 PNST: ASCII 
14005 oe 040526 052526 PST: cASCIZ /STATUS/ 
014012 047516 PNCK: - ASCII 
014014 044103 041505 000113 PCK:  <:ASCIZ /CHECK/ 
O14022 067316 PNEC: .ASCII /NO/ 
014024 041305 047510 000: PEC: = ASCIZ /ECHO/ 
014031 = 11611 PNMS: ASCII 
014033 115 042117 046505 PMS:  -ASCIZ /MODEM/ 
014041 «116 117 PNPR: :ASCII /NO/ 
O14045 120 047322 047524 PPR: —-ASCIZ /PROTOCOL/ 
014054 047045 040445 044514 LISP: <ASCIZ /ZNZALIS>/ 
014065 — 126 045514 76 OPRMM: <ASCIZ /TLK>/ 
014072 044124 051511 040640 15060: -ASCIZ /THIS A 50. OR 60. HZ. LSI-11:/ 
; FORMAT STATEMENTS USED IN PRINT CALLS 
014130 047045 040445 047504 DLLCM: .ASCIZ /ZNZADOWN LINE LOAD NOT SUPPORTED BY THIS DEVICE/ 
O14210 047045 040445 046103 BDCLK: .ASCIZ /INZACLOCK NOT FOUND/ ; : 
014234 047045 040445 040502 NOCLK: :ASCIZ /ZNZABAD C PROGRAM WILL HANG ON ‘‘TIMEOUT'*! !/ 
014315 113 054101 020036 TABEX: -ASCIZ /MAX CHAR. "AS COUNT EXCEEDED ~/ 
014395 102 043125 042506 BUFEX: | -ASCIZ /BUEFER F 
Q14575 045 022916 022524 MSGIRN: -ASCIZ /ENZTEA RSG. NOT BU 
Nob2s 047043 040449 044103 MSGTRU: -ASCIZ /ENZACHAR. COUNT EXCEEDS Gut ‘burr ghiMIT - MSG TRUNCATED/ 
014507 45 022516 052525 SHED: -ASCIZ PENES TARODESET PASS=% 
Q14343 045 022516 052385 SHEI: © -ASCIZ 3ENESDESSESSEA/3TEA/Z12A/ ariariraayar? 
014612 051445 022465 052101 EFM2: :ASCIZ /ZSSZATOTAL TCHES IN MSG = 2D5/ 
01465 045 022516 051525 PCPA: = -ASCIZ /ENESSEACALLED FROM 
Q14707 | 043 052345 040443 EFMII: -ASCIZ E COUNT=XDSISSEARECEIVE COUNT=D5/ 
Q14764 047513 042904 020115 ASCH: .ASCIZ 7n00 CHANGES FOR THIS PASS WERE 
015036 051445 022465 044101 EFMI3: -ASCIZ eoen rary Us SHANE FOR THIS, PASS WERE 


sEVENT 
EDTXQ: 
TXC: 


DESCRIPTION MESSAGES 


JA penn ots} MSG QUEUED/ 
/TRANSMIT MSG tt A ad 
/RECEIVE SPACE QUEUVED/ 
/RECEIVE MSG COMPLETED/ 
/DEVICE ERROR/ 

/DATA COMPARISON srenre/ 
Peevice anit AND SETUP/ 

/DAT ARISON LENGTH ERROR/ 
PDATA COMPARISON DATA ERROR/ 
/END OF PASS/ 

/MODEM STATUS CHANGE/ 


— 
a) 
eu 


WM NA 
PSUS" 


SERN 


wa 
= NUMA =I 


™ 


ARRRRRVVES 
ROU=USO 


PO ed ek ed bed ech ech he be eel 
VIN 


RF 
ES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SN SONOS 
= 

~™ 
owe] — 
——— 
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CZDCLA 11_ DATA COMM. LINK TEST MACY11 Vg 23-MAR-82 16:47 PAGE 74 
CZDCLA.P1 19=MAR=82 18:19 OBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO 


015460 041536 040440 047502 EDABO: .ASCIZ /*C ABORT/ 





EVENT REPORTING MESSAGES 
015471 045 031525 744 BASMS: : ASCIZ sassios/ 
013300 05144 46 117 BASM2: .ASCIZ /2S3%06/ 
01550 of: 0. 26 117 BASM1: .ASCIZ /2NZ06/ 
015515 5 51 101 WNULEVT: “ASELE /INZATHE ect EVENT LOG IS EMPTY 
015555 Bb8 516 101 EVTFO: .ASCIZ /ZNZA>>> DCLT EVENT oh88, ENTRY 1 AT 
015651 5 51 5 EVTF1: .ASCIZ /2NZD5ZA:22 sans 222%S 
013708 047045 144 4 EVTF2: .ASCIZ /2ZNZS3ZAADDR OF MSG=Z06ZS3ZABYTE COUNT=2%D05/ 
01575 eth: be 46 EVTF3: .ASCIZ /%ZNZS SaeTENT 
015764 05144 $e EVTF3C: .ASCIZ /2%S3%062S3%06/ 
016001 045 0315 7445 EVTF3D: .ASCIZ /2S3% AS SeOORSSET/ 
piesss 045 955316 O31 368 EVTF4: .ASCIZ WINES DR OF MSG=Z06%S3ZABYTE COUNT=ZD5ZS3ZANO. OF CMP ERRS=%D5/ 
016125 045 2516 0315 EVTF4A: .ASCIZ /2ZNZS3ZAADDR OF MSG=Z06ZSSZARX FT PU EDSESSRACOMPARE BYTES=%D5/ 
016223 045 022516 031523 EVTF4B: .ASCIZ /2NZS3ZAPASS=2D52S3ZAERRORS=2D52ZS3ZASTRI-TO0=205/ 
016302 051445 022465 041101 EVTFSA: .ASCIZ /2ZSSZABYTE# IN MSG.=2D5ZS3ZAEXPTD=Z03YSSZARECVD=%03/ 
016365 045 022516 034523 EVMOCG: .ASCIZ /2ZNZS9ZACHANGED TO:/ 
2 RRERAAARARAKAAAEARARERAEEEAAERARAAERAERAEAEAAREAERAERAERARARAYREAEARAERREARRREARE 
:D0 NOT SEPERATE THE NEXT LIST OF MESSAGES - MODEM SIGNAL HEADER AND REPORT 
016410 047045 051445 oeeeee EVMOHD: .ASCIZ /ZNZS8ZAMODEM STATUS: CTS DSR DCD RTS RI SRD/ 
016465 045 022516 034523 EVMOST: .ASCII /2ZNZS9ZS9ZS5ZA/ 
016502 130 040 040 EVMCTS: .BYTE ‘'X,40,40, 
dy Fa 130 040 040 EVMDSR: .BYT -40,40,40 
01651 130 040 040 EVMDCD: .BYTE ‘'Xx,40,40,40 
o16316 130 040 040 EVMRTS: .BYTE ‘'X,40,40,40 
01652 130 040 040 EVMRI: .BYTE ‘'X,40,40,4 
Si6366 130 040 040 E D: .BYTE x,40,40,4 
0165 000 BYTE 
016534 . 
sEXECUTION STATUS MESSAGES TO BE PRINTED TO KEEP ee AWAKE 
016534 047045 CR: ASCIZ / :CR FOR LINES IN 
016537 045 031 0445 ‘1X8: *ASC12Z /ZS3ZATXQ/ ;ABOUT TO NRANSMIT 
016550 051445 $908 52101 STXC:  .ASCIZ /2ZS3ZATXC/ 3x C ETED 
016561 045 515. 45 SRXQ: eASCIZ /2ZS3ZARXQ/ sABOUT TO RECEIVE 
B16376 051445 24 420) SDVE: eASCIZ /2S3ZAERR/ sDEVICE ERROR 
01660 045 15 45 SCM: eASCIZ /2ZS3ZACMP/ sABOUT TO DO DATA CHECKING OF RECVD VS. EXPTD 
Shades 051445 ese reat SDVI: eASCIZ /2S3ZAINI/ :DEVICE ABOUT TO BE INITIALIZE 
1 5 045 15, 0445 SCML: eASCIZ /2ZS3ZACML/ sCOMPARE LENGTH ERROR 
3166 051445 3 24 1501 SCMD: eASCIZ /2ZS3SZACMD/ :COMPARE DATA ERR 
1664 045 15, 0445 SEOP: ity S3ZAEOP/ sEND OF PASS 
016660 051445 022463 046501 SMSC: eASCIZ /2S3ZAMSC/ sMODEM STATUS CHANGE. 


016671 115 peett? 6505 GLMSG: .ASCIZ /MODEM STATUS GLITCHED/ 
117 046505 HRDMSG: .ASCIZ /MODEM STATUS HARD ERROR/ 


J 6 


SEQ 74 
CZDCLA DUP=11 DATA COMM, LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 75 
CZDCLA.P11 1 -82 iss 19 OBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO 
016747 M15 051501 042526 DVEMO: .ASCII /MASTER RESET DID NOT WORK/ 
1 990 00 Qi 20040 051040 “ASCIZ <15><12>/_. RXCSR _—sO‘TXCSR 
0170 16 144 2514 OVEM1: .ASCII /NO CLEAR TO SEND FROM MODEM / 
017 90501 2004 31040 "ASCIZ. <15><12>/. sO RXCSR.—sTXCSR/ > 
017110 044524 15 0474460 DVEM2: ASCII TIME gu WAITING FOR RX OR TX TO COMPLETE/ 
017161 015 020012 020040 "ASCIZ <15><12>/. SO RXCSR.~—Ss TXCSR/ 
017205 103 041522 044440 DVEM3: :ASCIZ /CRC IN ERROR/ 
017221 O13 02001 051040 "ASCIZ <15><12>/  RXDBUF RXCSR/ 
017246 042 2 042503 053111 DVEM4: .ASCII cissel by OVERRUN 
017266 00501 020040 05412¢ "ASCIZ <15><12>/_ RXDBUF RXCSR/ 
017313 124 046511 3105 DVEMS: :ASCII /TIMED OUT IN START,STACK,ACK SEQ/ 
Oa or ¢ ois att DVEM6: . scit f < MODEN-DID Ne or DATA oy PODER READY/ 
017437 015 $38012 020040 “ASC1Z A Py a OxceR TXCSR/ 
EVEN 


CZDCLA DUP-11 
CZDCLA.P11 
3036 017464 
3037 017464 
3038 017464 
3039 017464 
3040 917886 
3041 017472 
soe8 017474 
017500 
3044 017504 
3045 017510 
3046 017514 
3047 017516 
3048 017520 
3049 017524 
3050 017524 
a 017524 
308 017526 
54 017526 
55 017526 
3056 0175 
3057 0175 
3058 017536 
59 017542 
017544 
1 017546 
oi 7225 
1755 
: 017552 
017334 
17554 
17554 
17554 
17 
17 
175 
175 
17574 
17571 
1760, 
1760 
1760, 





1 


ATA COMM. 
-82 


LINK TEST 
18:19 


006542 
014707 
000003 


000010 
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MACY11 30A(1052) 23-MAR-82 16:47 PAGE 76 
GLOBAL ERROR REPORT SECTION 
.SBTTL GLOBAL ERROR REPORT SECTION 
3+ 
: THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 
; USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTS 
: (BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 
BGNMSG ERR1 a 
PRINTB #EVTFSA,OFSET,<B,GOOD>,<B,BAD> ; INDIVIDUAL DATA COMPARE ERROR 
BI1SB BAD, (SP) 
CLR =(SP) 
BISB GOOD, (SP) 
MOV OF SET, -(SP) 
MOV #EVTF5A, =(SP) 
MOV #4,-(SP5 
MOV RO 
TRAP  CSPNTB 
ADD #12,SP 
ENDMSG 
110001: 
TRAP  CSMSG 
BGNMSG ERR2 eat 
PRINTB #EFM2,TEMP4 :TOTAL DATA COMPARE FAILS ERROR 
MOV TEMP4 ,=(SP) 
MOV #EFM2.-(SP) 
mw ea 
TRAP  CS$PNTB 
aa ADD #6,SP 
L10002: 
TRAP  CSMSG 
BGNMSG ERR10 beaten 
PRINTB #EFM11,R4,TEMP3 ZLENGH COMPARISON ERROR 
MOV TEMP3,-(SP) 
Oy OSEE NTT csp» 
MOV #8 .n(SP) 
MOV SP-RO 
TRAP  C$PNTB 
se: ADD #10,SP 
) L10003: 
TRAP  CSMSG 


SEQ 75 


CZDCLA 11_ DATA COMM. LINK TEST 
CZDCLA.P1 19-MAR=82 18:19 
17604 
1 017604 
17604 
17604 013746 O11318 
17610 01 me 0115 
5 017614 012746 0150 
17 12746 00000 
17624 01 
17 104414 
9 017630 062706 000010 
Se 94 
1 0176 
038 017634 104423 
309. 
3094 
fe 
7 
3099 
100 017636 
101 017636 
4 017636 
3103 017636 013746 006544 
3108 017642 013746 006542 
105 017646 012746 015764 
3106 017652 012746 000005 
107 017656 010600 
108 017660 104414 
109 017662 062706 000010 
110 017666 
3111 017666 
aig 017666 104423 
ai 
114 
3115 
116 
117 
118 
119 017670 
120 017670 
121 017670 
\¢6 017670 orate 550 
123 017674 013746 544 
133 17704 12746 1600) 
126 017710 at 74 000004 
127 017714 01 
128 017716 104414 
1 17720 062706 000012 
1 piee 4 
131 017724 
13 017724 104423 
134 o177e6 
135 017726 000167 
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MACY11 30A(1052) 23=MAR-82 16:47 PAGE 77 
GLOBAL ERROR REPORT SECTION 


BGNMSG ERR4 
PRINTB #EFM13,MHRCNT MGLCNT 


ENDMSG 
L10004: 


SPRINT THE 2 OCTAL #°S IN TEMP3/4 


e 


BGNMSG ERR13 


ERR13:: 
PRINTS #EVTF3C, TEMPS, TEMPS 


ENDMSG 
L10005: 


[PRINT THE 2 OCTAL #°S IN TEMP3/4 
: AND THE MESG. WHOSE ADDR. IS IN CONOTM 


BGNMSG ERR14 


ERR14:: 
PRINTB #EVTF3D, TEMPS, TEMP4 ,CONOTM 


ENDMSG 
L10006: 


EXIT MSG 


ERR4:: 
sMODEM STATUS Gunes 


SEQ 76 


MGLCNT ,-(SP) 
MHR - 


TEMP4 ,-(SP) 
TEMP3, -(SP) 
#EVTE SC =(SP) 
#3.=(SP) 
CSPNTB 
#10,SP 


CSMSG 


CONOTM,-(SP) 
LL ae Fp} 


CSPNTB 
#i2.SP 
CSMSG 


JSJMP 
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CZDCLA_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 78 
cHoCLASPAY 1 ANARCES 1819 GLOBAL ERROR REPORT SECTION 


3138 017730 177772 -WORD 1L10006-2-. 
3138 


SEQ 77 


N 6 


CZDCLA DUP-11 DATA Cor, LINK TEST | MACY11 30A(1052) 23-MAR-82 16:47 PAGE 79 
CZDCLA.P11 19-MAR=82 18:19 GLOBAL SUBROUTINES SECTION 


SEQ 78 


4 -SBTTL GLOBAL SUBROUTINES SECTION 

141 

136 2 THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 

Ne ;_THAT ARE USED IN MORE THAN ONE TEST. 

12 Si 

ei SBTTL CLOCK SETUP SUBROUTINE 

1 + 

FUNCTIONAL DESCRIPTION: 
THIS SUBROUTINE SEIS UP THE CLOCK INFORMATION TABLE FOLLOWING A ‘‘CLOCK’’ 
CALL EXECUTED IN THE INITIALIZATION CODE. BUT SINCE THE ‘‘CLOCK*’ CALL 
THING T AN LSI=-11°S CLOCK, THIS ROUTINE IS ONLY USED IF A 

LINE OR P-CLOCK IS FOUND. 


INPUTS: 
R1= POINTS TO SUPERVISOR SPACE WHERE CLOCK INFO WAS RETURNED 
R2= POINTS TO “‘CLK*’ TABLE WHERE CLOCK INFO WILL BE KEPT 


IMPLICIT INPUTS: 
THE SUPERVISOR SPACE WHERE CLOCK INFO WAS RETURNED BY THE ‘‘CLOCK’* CALL 


OUTPUTS 


FEVISSRVSEALUNASGBVEGE 


ee cee ee cee cD ed ed ced ce ee ee ce ad ce ee cee ce ce ce ce ee ee ed ee ed ed ed ed ed ed ed eed 


65 : af LOADED WITH THE CLOCK’ : INTERRUPT rEVEL 

3] "CLKVEC GET S$ LOADED WITH THE CLOCK'S INTERRUPT VECTOR 

6 **CLKHZ"* ers LOADED WITH. THE LINE FREQ. (HERTZ RATE) WHICH DETERMINES 

$8 THE NUMBER OF TICKS IN A SECOND 

70 CALLING SEQUENCE: 

a JSR PC,CLKSET sCALL CLOCK SETUP WITH R1 & R2 SETUP 

73 

74 «(01 T7538 CLKSET: 

75 «(01773 O18 156 MOV ony - that? 3LOAD CLOCK'S CSR ADDR. INTO “*CLKCSR'® 

76 17734 01211 MOV (R1)+,(R2) ;LOAD CLOCK’S INT. LEVEL INTO ““CLKBR** 
17736 3] ASL (R2) sADJUST THE INT. LEVEL FOR LOADING INTO 

78 HAs 1 ASL (Re) : PSW WITH A ‘‘SETVEC’* CALL 

79 01774 1 ASL (R2) 

80 017744 1 ASL (Re) 

81 17706 ASL (Re)+ 

86 1775 1 MOV (R 93. (Reis sLOAD CLOCK'S INT. VECTOR INTO ““CLKVEC’’ 

8 17752 1 Vv (R1)+,(R2)+ 3LOAD CLOCK'S HERTZ RATE INTO “‘CLKHZ" 

84 017754 2 RTS PC 


@o 
w 


CZDCLA_DUP=-11 DATA COMM. LINK TEST 
CZDCLA.P11 19-MAR~82 18:19 


23 SB Ss oS SS SO a SS 


RRNKRINKINKININKNNNNGURIORSROR RRR ORIRSORIRIRIRI ORIG 
BE SSS ee eee ee Sseessraeeseeee | 
o 


006640 
20002 022737 000074 006636 
6 004 
2 
6 


YW 
RRA 
4 
a 
3 
& 


site 006630 006640 
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MACY11 30A(1052)_ 23-MAR-82 m 47 PAGE 80 
CLOCK SETUP SUBROUTINE 


oSBTTL CLOCK INTERRUPT SERVICE ROUTINE 


"FUNCTIONAL DESCRIPT 
THIS 1S THE Lock INTERRUPT SERVICE ROUTINE WHICH TAKES CARE OF 
PING, THE “TIME-SINCE=START ” AND COUNTING DOWN ANY OF THE 
"EVENT TIMERS, THE TIMERS ARE USED Me COMPLETION OF DEVICE 
REQUESTS. THE “TIME-SINCESSTART’’ 18 USED 10 GE LOGGED WITH EACH ENTRY 
INTO THE EVENT LOG. 


IMPLICIT INPUTS 
TIMTCK: us SEEN foe OF T1Cks LEFT TO BE COUNTED UNTIL A SECOND 
CLKHZ: OF TICKS IN A SECOND DETERMINED 8 ey, THE SYS. LINE FREQ. 
TIMMIN 2 Timset: CURRENT VALUE EOF Tine-Si NCE-STAR 

TIMER 1,2, & S: CURRENT VALUES OF THE SFEVENT TIMERS" 


IMPLICIT OUTPUTS: 


oe VALUE OF EVENT TIMER ‘1°’ DECREMENTED BY 1 TICK IF IT WAS NON-ZERO 
W VALUE OF EVENT TIMER ‘'2°* DECREMENTED BY 1 TICK IF IT WAS NON-ZERO 
NEW VALUE OF EVENT TIMER ‘'S’’ DECREMENTED BY 1 SECOND IF IT WAS NON-ZERO 


FUNCTIONAL SIDE EFFECTS: 
THE CLOCK IS DISABLED UPON ENTRY AND REENABLED WHEN LEAVING 


CALLING SEQUENCE: od 
THIS ROUTINE IS CALLED WHEN THE CLOCK INTERRUPTS THRU “CLKVEC 
THE ADDRESS OF THIS ROUTINE WAS LOADED INTO THE CLOCKS INTERRUPT 
VECTOR WITH A SUPERVISOR "'SETVEC™ CALL. 


ee ee a 


BGNSRV CLKINT 


CLKINT:: 

CLR a@CLKCSR :DISABLE THE CLOCK FORM INTERRUPTING 

DEC TIMTCK *DECREMENT THE # OF TICKS/SEC 

BNE 1$ 260 CHECK TIMERS (182-TICKS, 3-SECONDS) 

CLKHZ,TIMTCK  :RESET THE # OF TICKS/SEC. 

INC TIMSEC SINC # OF SECS-SINCE-START 

CMP #60. , TIMSEC [SEE IF WE'VE COUNTED 60 SECS. YET 

BNE 1$ 31 NOT, GO CHECK TIMERS 

INC TIMMIN 3 ELSE INC MINUTES-SINCE-START 

CLR TIMSEC t AND RESTART SECOND COUNTER 
1$: TST TIMER ;SEE IF TIMER #1, TIMING ANYTHING 

BEQ 2$ : IF=0, NOTHING BEING TIMED CHECK NEXT TIMER 

DEC TIMER : ELSE DECREMENT THE TIMER VALUE (BY 1 TICK) 
2s: TST TIMER2 SEE IF TIMER #2, TIMING ANYTHING 

BEQ $ : IF=0, NOTHING BEING TIMED CHECK NEXT TIMER 

DEC TIMER2 t ELSE DECREMENT THE TIMER VALUE (BY 1 TICK) 
3$: TST TIMERS SEE iF TIMER #3, TIMING ANYTHI 

BEQ 4$ : IF= THING BEING TIMED, LEAVE 

CMP CLKHZ,TIMTCK SEE If A SECOND HAS BEEN COUNTED OFF 

BNE 4$ : BR IF NO 

DEC TIMERS + ELSE DECREMENT THE TIMER VALUE (BY 1 SEC.) 


SEQ 79 
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CZDCLA DUP=11 DATA C LINK TEST MACY17 30A(1052) 23-MAR-82 16:47 PAGE 81 
1DCMARSBO iett$ CLOCK INTERRUPT SERVICE ROUTINE 


CZDCLA.P11 


5 


0076 


are 013777 006632 166524 4$: 
0076 000002 


MOV 
ENDSRV 


CLKEN, @CLKCSR 


sREENABLE THE CLOCK TO INTERRUPT 
L10007: 
R 


TI 
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CZDCLA DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16 47 PAGE 82 
CZDCLA.P11 1 =82 18:19 T LOG SUBROUT! 





m4 -SBTTL EVENT LOG SUBROUTINES 
48 
49 "FUNCTIONAL DESCRIPTION: 
50 THIS SUBROUTINE HAS A DIFFERENT ENTRY POINT 
51 ros can EVENT TO BE LOGGED AND ALWAYS PRINTS 
26 THE “OPERATOR AWARE” MESSAGE TO CONSOLE THEN LOGS THE 
5 EVENT ONPE, TIME, AND THE OTHER 3 WORDS OF INFO PASSED TO THE 
ee SUBROUTINE AT CALLING TIME 
5 TS: 
28 , TIMMIN & TIMSEC: CURRENT VALUE OF ‘‘TIME-SINCE-START’’ 
3258 TEMP2: — #i e event LOG INFORMATION (FOR MOST EVENT TYPES) 
TEMPS: we, oe oe ENT LOG INFORMATION 
TEMP4: OF EVENT LOG INFORMATI 


ON 
MODS: CURRENT VALUE OF THE MODEM SIGNALS AVAILABLE FROM THE DEVICE 


TS: 

"OPERATOR AWAKE’’ MESSAGE SENT TO THE CONSOLE 
NEW EVENT LOGGED IN “EVTLOG (EVENT LOG) 
UPDATED “EVTPTR’’ (EVENT LOG ENTRY POINTER) 


SUBORDINATE ROUTINES USED: 
"“DVMODS'’ THE DEVICE SUBROUTINE THAT RETURNS MODEM STATUS IN ‘MODS"’ 
(FOR SOME EVENT TYPES) 


FUNCTIONAL SIDE EFFECTS: 
TEMP: USED TO STORE ADDRESS OF ‘OPERATOR AWAKE’* MESSAGE 
TEMP1: USED TO SETUP THE VALUE OF THE “EVENT TYPS’* BYTE FOR LOGGING 


CALLING SEQUENCE: 
JSR PC .LOGTXQ 3 CALL THE LOG EVENT SUBROUTINE WITH TEMP, TEMP1, 
3 TEMP2, TEMPS, AND TEMP4 SETUP 


JSR PC ,LOGCMP 


2 
2 





020100 LOGTXQ: 

020109 012737 016537 006536 MOV #STXQ, TEMP1 :SET UP MSG. To PRINT 
106 012737 000000 006534 MOV #TXQ, TEMP ‘SET UP EVENT TYPE 
020114 000517 oGsi :G0 LOG EVENT AND TIME 

020116 LOGTXC: 

116 O12 7 016550 006536 MOV #STXC, TEMP1 :SET UP MSG. TO PRINT 
020124 012737 000002 0065 MOV #TXC, TEMP ‘SET UP EVENT TYPE 
020132 000510 Gsi :G0 LOG EVENT AND TIME 
0. 1% LOGRXQ: 

0 01 1273? 016561 006536 MOV #SRXQ, TEMP1 :SET UP MSG. TO PRINT 
Ibe 12737 att 0065 MOV #RXQ, TEMP ‘SET UP EVENT TYPE 
02015 501 BR LoGsi +60 LOG EVENT AND TIME 

15 LOGRXC: 

0152 012737 000006 006534 MOV #RXC, TEMP :SET UP EVENT TYPE 
75 “eo LOGsi :GO LOG EVENT AND TIME 
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CZDCLA 11_DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 83 
nig isi9 







CZDCLA.P1 EVENT LOG SUBROUTINES 
73? 016572 006536 MOV #SDVE, TEMP1 :SET UP MSG. 10 PRINT 
1 534 MOV #DER, TEMP :SET UP EVENT TYPE 
1% Her BR LOGS3 :GO LOG EVENT AND TIME 
LOGDVI: 
on 7 016614 006536 MOV #SDVI, TEMP1 :SET UP MSG. TO PRINT 
12737 1 5 MOV #DVI,T [SET UP EVENT TYPE 
14 113737 7 540 MOVB mODT YP. TEMP2 
113737 57 541 MOVB LTV. Temp +1 
13737 006542 MOV RPASS 
13737 006576 006544 MOV PARA TEMPS zSET UP EVNT ENTRIES 
020244 BR LOGS3 :G0 LOG EVENT AND TIME 
020246 LOGCMP: 
920246 012737 016603 006536 MOV #SCM, TEMP1 :SET UP MSG. TO PRINT 
020254 012737 006534 MOV #DCK. TEMP [SET UP EVENT TYPE 
020262 51 LOGS$ 
020264 LOGCML: 
0 $4 012737 016625 006536 MOV #SCML, TEMP1 
0 12737 006534 MOV #DLE, TEMP :SET UP MSG. AND TYPE 
0 000442 LOGs3 [60 LOG EVENT AND TIME 
02030 LOGCMD: 
02030 012737 016636 006536 MOV #SCMD, TEMP1 
02031 12737 006534 MOV #DDE, TEMP 
02031 Saas BR LOGS3 360 LOG MSG TYPE AND TIME 
020 012737 016647 006536 ” MoV #SEOP, TEMP1 
020326 012737 000024 006534 MOV #EOP, TEMP 
020334 000424 BR LOGS3 :G0 LOG MSG TYPE AND TIME 
020336 LOGMSC: 
336 012737 016660 006536 MOV #SMSC, TEMP1 
012737 000016 006534 MOV #MSC, TEMP 
020352 000415 BR LOGS3 
020354 013746 0065 LOGS1: MOV ERRCNT.-(SP) SAVE CURRENT ERROR COUNT 
020360 004737 996598 JSR T MODEM STATUS 
364 01 604 MOV (SP)+,R4 2GET SAVED ERRCNT VALUE 
366 7 006506 CMP R4,ERRCNT :WHERE AN Y ERRORS FOUND 
3 1608 BEQ 1$° F NONE 
020374 000137 020610 JMP LOGEX 3 ELSE LEAVE WITHOUT LOGGING ANYTHING 
020400 013737 007556 006544 15$: MOV MODS, TEMP4 anp’P PUT IT IN TEMP4 a 
LOGS3: 
50 o29c06 ar ; a oo BeO (nae gTERP IF RXC DONT PRINT 
16 2737 000001 006576 BIT #STATB,PARAM 
52 20424 0014 BEQ LOGSS z1F NO STATUS SELECTED 
Rez :60 TO 
385 tenets Siok 000010 006500 cmp #10 LNCNT ZHAVE | WE DONE Jo? 
35 5037 006500 CLR LNCNT TESLE CLEAR IT 








CZDCLA_DUP-11 DATA com LINK 
15SHAR 219 


CZDCLA.P11 





Ww “IN 
ANN ~“ 


So 
rs 
Sux 


392 


177777 


006652 
7? 006650 


NK TEST 


F 7 


MACY11 a Ce lie Pa 47 PAGE 84 


LOGS4: 


LOGSS: 


LOGS2: 
LOGEX: 


T LOG SUBROUTIN 

PRINTF #CR 
LNCNT 

PRINTF TEMP1 
MOV R3,- 
MOV Stern. 23 
MOVB _—«C TEMP, (R3)+ 
MOV CLKH2, TEMP 
SUB TIMTCK, TEMP 
MOVB — TEMP, (R3)+ 
MOVB TIMSEC. (R3) + 
MOVB =—s TIMMIN. (R3)+ 
MOV TEMP2, (R3)¢ 
MOV TEMPS, (R3)+ 
MOV TEMPS. (R3)+ 
CMP R3, MEVTEND 
BLO 06s2 
MOV -1,(R 
MOV #EVILOG R3 
MOV ,EVIPT 
MOV P)+, 
RTS 


sELSE PRINT CR 


INC COUNTER OF # OF AWAKE MSGS 
PRINT OPERATOR AWAKE MSG. 


sSAVE R3 ON THE STACK 
3LOG EVENT 


3LOG TIME SINCE START 


sTICKS, oe AND MINS. 
LOG EVNT ENTRY 3 

LOG EVNT ENTRY 4 

3LOG EVNT ENTRY 5 


sIF EVENT LOG FULL G 
CONTINUE; ELSE GO TO "3 
:L0G AT. E 

R3_TO START OF TABLE 
RESTORE POINTER 
RESTORE R3 


SEQ 83 


acR, rh 
#1,-(SP) 


TEMP1,-(SP) 
a «a(5P) 
CSPNTF 
#4,SP 
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SEQ 84 
CZDCLA DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 85 
CZDCLA.P11 1DAMAR CBO 18:19 REPORT EVENT LOG 
5 .SBTTL REPORT EVENT LOG 
95 3zRPT> LOG 
BS 33 HELP 
9 33 EXIT 
98 33 COUNTER/FULL, ERROR, OF FSET=NN(O) 
00 9 12 010246 REPORT: MOV R2.~(SP) ZSAVE R2,R3,R4 ON THE STACK 
1 14 010346 MOV R3,-(SP) 
0@ 16 010446 MOV R4,-(SP) 
04 :PRINT HELP MESSAGE 
05 0 PRINTF #RHLPO :BASIC HELP MESSAGE 
06 0 012746 013075 MOV #RHLPO,=(SP) 
07 020624 012746 000001 MOV #1,-(SP) 
08 1 MOV SP,RO 
020632 10441 TRAP  CSPNTF 
10 0 062706 000004 ADD #4,SP 
S412 020640 105037 003147 GETRCL: CLRB § PSGDBD ZINIT GOOD/BAD FLAG -1=B8AD INPUT 
3413 020644 105037 003146 CLRB = PSNNUF SINIT MORE COMMAND LINE INPUT NEEDED 
3415 :PRINT PROMPT 'RPT>' 
ari$ 0. 50 GMANID CLISRP,CMDBUF .A,-1,1,72.,NO 
3417 020650 104443 TRAP  C$GMAN 
3418 020652 000406 BR 10000$ 
19 020654 002 .WORD C 
20 020656 00014 ;WORD TSC 
31 0 01157 “WORD  CLISRP 
g 0 1777 “WORD <1 
2 0 000001 “WORD  TS$LOLIM 
33 0 000110 , “WORD TSHILIM 
920670 on 737 00 003132 MOV #CMDBUF ,PSBUFA : INPUT BUFFER 
27 020676 012737 021 003134 MOV #CLIRT PSTREE SREPORT CLI TREE 
B 020704 012737 0212 003136 MOV #CLIRAC,PSACT SACTION ROUTINES 
020712 037 00 12 CLR QUALFG 
0 716 37 02424 JSR PC .PSTRV :GO PARSE COMMAND LINE 
31 0 105737 00314 TSTB PS$GDBD [COMMAND OK ? 
4 8 canine BE INTE bei rern ORIAT INVALID INPUT MESSAGE 
3% 6 730 012746 011603 MOV — #CLIERM,-(SP) 
35 9 734 91 74 B50007 MOV #1,-(SP5 
38 740 1 MOV SP-RO 
3h p5076E O60 Ime Shute 
$50780 135 nats JMP GETRCL :TRY AGAIN 
020754 105737 003146 1$: TSTB  PSNNUF zMORE COMMAND NEEDED ? 
760 001412 BEQ 10$ NO 
7 PRINTF #CLINUF S INCOMPLETE MESSAGE 
7 or 746 011633 MOV #CLINUF ,=(SP) 
7 01 7 BH000% mov a +3(SPS 
0774 10441 TRAP CSPNTF 
776 062706 000004 ADD 44,SP 





H 7 


SEQ 85 
CZDCLA 11_DATA C LINK TEST MACY11 ee ig 23-MAR-82 16:47 PAGE 86 
Sa a 





CZDCLA.P1 REPORT EVENT L 

$9 021002 000137 020640 JMP GETRCL sTRY AGAIN 

31 1 023727 003010 000002 10S: CMP Be ywo oMRPEXT sEXIT COMMAND ? 

26 1014 1 BEQ $ ; YES BRANCH 
1 18 020640 JMP GETRCL 3GET “ANOTHER COMMAND 
1 208: MOV (SP) +,R4 sRESTORE R4 

55 1024 60 MOV (SP)+,R3 RESTORE R3 
10 60 MOV (SP)+,R2 SRESTORE R2 

57 0210 020 RTS PC 7RETURN 
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SEQ 86 
CZDCLA DUP=11 DATA. COMM, LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 87 
CZDCLA.P11 1 -82 18:19 COMMAND LINE PARSING TREE FOR REPORT 
58 .SBTTL comant obi PARSING TREE FOR REPORT 
5 19 CLIRT: CLI C R108 sSKIP SPACES IN COMMAND LINE 
1 R10$: CLI bE APHL P,R11$ tIF INPUT = ? THEN PRINT HELP MESSAGE 
1 021 CLI CLIE : SAND EXIT PARSER 
1044 R11$: CLI CLISTR.RPHLP,R12$,<"HELP’> IF INPUT = HELPS THEN PRINT HELP 
1 CLI CLIEXI.0 “MESSAGE AND EXIT PARS 
1 R128: CLI CLISTRIRPEXT,R13$,<"EXIT'> iF INPUT = EXIT Hen SET KEYWORD = 
5 021076 CLI CLIEXI.O *RPEXT AND EXIT 
0211 R13$: CLI CLISTR.RPLOG,R14$,<"LOG'> :1F INbu LOG’ HEN GO PRINT EVENT 
111 CLI CLIEXI.0 : toe AN AH EXIT PARSER 
1114 R148: CLI CLISTRe TNF ee >;1F INPUT = "COUNTERS® 
1134 CLI CLIBR 7ZTHEN GET SWITCH 
021140 R20$: (CLI <'/> goche 
021144 CLI CLISTR, BIN Bets. <*ERROR'> ; REPORT ERROR COUNTERS 
021160 CLI CLIEXI.O 
0 1162 R21$: CLI CLISTR.RPFUL,R22$,<"FULL'> ; REPORT ALL STATUS 
021176 CLI CLIEXI.0 
021200 R22$: CLI CLISTR.RNOTNF ,R30$,<"OFFSET’> ; REPORT ONE LOCATION 
021 18 CLI <*=>,0,R30$ 
02122 CLI CLIOCT.RPSWO,R30$ 
021226 CLI CLIEXI 0 
021230 R30$: CLI CLIERR. 
021232 R125$: CLI CLIFXI.O 





J 7 


CZDCLA 11_ DATA COMM. LIRK TEST MACY11_ 30A(1052)_23-MAR-82 16:47 PAGE 88 
CZDCLA.P1 19-MAR=82 18:19 CLI ACTION DISPATCHER AND ROUTINES 


SEQ 87 





81 .SBTTL CLI ACTION DISPATCHER AND ROUTINES 
8 1 30 CLIRAC: ASL 7SET UP INDEX 
1 1 9 021 53 MOV 10$(R2) ,R2 ; 
84 02124 125 ADD #10$,R2 ; 
85 021 71 JSR PC, (R2) :GO DO ACTION 
125 2 RTS PC RETURN 
8 1252 000026 10$: WORD ACTRNL~108 NULL 
88 021254 0000 “WORD ACTRHL=1 SHELP ROUTINE 
1256 4 “WORD ACTREX-10$ TEXIT ROUTINE 
90 021 104 “WORD ACTRLG=1 [REPORT EVENT LOG ROUTINE 
91 021 14 SWORD ACTERR=1 SREPORT ONLY ERROR COUNTERS 
9 021264 12 “WORD ACTFUL=1 [REPORT ALL COUNTERS 
9 021266 000020 “WORD ACTRNF-10$ [MORE COMMAND NEEDED 
3 021270 000164 “WORD ACTRSO-10$ [VALIDATE OFFSET 
36 s22gsACTION ROUTINES FOR REPORT:::;; 
9 021272 113737 177777 003146 ACTRNF: MOVD 1, PSNNUF :SET*MORE COMMAND NEEDED’ FLAG 
38 021 000207 ACTRNL: RTS PC NULL 
500 :PRINT HELP MESSAGE 
01 021302 012702 003036 ACTRHL: MOV PTB, ZINDEX FOR HELP MESSAGES 
302 021 1$: PRINTS #HLPF,(R2)+ :PRINT IT 
503 021 012246 MOV (R2)+,=(SP) 
504 021310 012746 012271 MOV #HLPF .-(SP) 
3505 021314 012746 000002 MOV #2,-(SP) 
506 031 01 MOV SP.R 
507 021322 10441 TRAP _ CS$PNTF 
508 021324 062706 ADD #6,SP 
509 021330 02022 ie 98 CMP R2,#RHLPEN :LAST MESSAGE ? 
021334 001 BNE NO 
021336 012737 000001 003010 MOV WRPHLP,KEYWD1  :SET KEYWORD 
021344 000207 RTS PC RETURN 


sEXIT REPORT LEVEL 
012737 000002 003010 ACTREX: MOV #RPEXT,KEYWD1 ;SET KEYWORD AND RETURN 
021354 000207 RTS PC 


zPRINT EVENT LOG 


oe A ee 
=—OOOVNAUSWN—O 
=] 
nm 
ry 


WAWWWAAWAAWAAWAA NAWWANAAAAA 
w AAAI 


& 


520 0 1356 004737 022060 ACTRLG: JSR PC,REPLOG 360 PRINT EVENT LOG 
521 021 012737 000003 003010 MOV #RPLOG,KEYWD1 SET KEYWORD 

2 g 021370 207 RTS PC RETURN 

524 ::REPORT ALL MESSAGE AND ERROR COUNTERS 
525 0213 012737 000000 037254 ACTFUL: MOV #9 FIR ZSTARTING INDEX 
5 14 e730 900036 37252 MOV #36,LAST [LAST INDEX 

5 1406 004737 02154 JSR PC, STAPRI :G0 PRINT IT 
328 021412 000207 RETURN 

365 >:PRINT ONLY DDCMP ERROR COUNTERS 

531 021414 012737 000014 037254 ACTERR: MOV #14, FIR sFIRST ERROR 
33¢ 0 1692 1 30 900036 37252 MOV #36,LAST SLAST ERROR 

533 021430 004737 02154 JSR PC, STAPRI :G0 PRINT IT 
234 021434 000207 RETURN 


kK 7 





CZDCLA DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 89 
CZDCLA.P11  19=MAR-82 18:19 CLI ACTION DISPATCHER AND ROUTINES 
537 >;VERIFY OFFSET VALUE 
5 9 14 1050 7 003146 ACTRSO: CLRB = PSNNUF ZCLEAR "NOT ENOUGH FLAG’ 
539 02144 2737 000001 003142 BIT #81T0,PSNUM :1S IT ODD ? 
540 02145 1920 BNE 20$ YES, BRANCH 
541 021452 005 003142 TST P$NUM SNEGATIVE # ? 
242 0 1456 100415 BMI 208 YES, BRANCH 
543 021460 023727 003142 000036 CMP PSNUM #36 S INDEX LARGER THEN 36 ? 
544 021466 BGT 20$ YES, BRANCH 
545 021470 013737 00314 037254 MOV PSNUM, FIR SSTARTING INDEX 
546 021476 013737 003142 037252 MOV PSNUM, LAST SLAST LOCATION 
547 021504 7 02154 JSR PC, STAPRI :PRINT SINGLE LOCATION 
548 021510 13 BR SEXIT 
549 0 131¢ 20$: PRINTS #RPTIV + INVALID 
550 021512 012746 013405 MOV #RPTIV,-(SP) 
551 021516 012746 000001 MOV #1,-(SP) 
355¢ 021522 010600 MOV SP,RO 
553 021526 106416 TRAP  CS$PNTS 
554 021526 062706 000004 ADD #4,SP 
555 021532 112737 177777 003147 MOVB #1, PSGDBD :SET BAD DATA FLAG 
3556 021540 000207 30$: RETURN SOFFSET OK = EXIT 
558 
559 3; PRINT ROUTINES 
560 021542 01014 STAPRI: MOV R1,-(SP) ZSAVE R1 
3361 021544 032737 000040 006576 BIT #PROTOB,PARAM :''/PROTOCOL"? 
362 021552 001011 BNE 7YES BRANCH 
3563 021554 PRINTF #RPTNV :"COUNTERS VALID ONLY WITH PROTOCOL SELECTED’ 
3564 021554 012746 013430 MOV #RPTNV,-(SP) 
565 021560 012746 000001 MOV #1,-(S 
566 021564 010600 MOV SP 
567 021566 104417 TRAP  CSPNTF 
568 021570 062706 000004 ADD #4,SP 
569 021574 000420 BR 208 EXIT 
570 021576 013701 037254 5$: MOV FIR,R1 ;FIRST INDEX 
571 021602 016137 037152 037256 10$: MOV STALST(R1),MES :MESSAGE ADDRESS 
572 021610 016137 037052 037260 MOV PRSTAT(R1).MESDATA ;MESSAGE DATA 
573 021616 004771 03721 JSR BC .aSTAIND (RI) ; JUMP TO PROPER PRINT ROUTINE 
574 021622 701 00000 ADD #2.R : x 
575 021626 020137 03725 CMP R1.LAST TALL MESSAGES PRINTED 
576 021632 003001 BGT 20$ :YES, 
577 021634 000762 10$ SPRINT NEXT MESSAGE 
578 021636 012601 20$: MOV (SP)+,R1 SRESTORE R1 
379 021640 000207 RETURN EXIT 
581 
382 >: PRINT WORD LOCATION 
5 021642 RiW: PRINTS MES,MESDATA :PRINT WORD LOCATION 
584 02164 013746 037260 MOV MESDATA,-(SP) 
585 0 1666 13746 037256 MOV $,-(SP) 
5 165 or 746 000002 MOV #2,-(SP) 
58 1656 01 MOV SP-RO 
$B Teles GeEHE ooon ee ees 
290 arte 00020 RETURN 
592 


. F 


SEQ 89 
CZDCLA DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 90 
CZDCLA.P11— 1 =82 18:19 CLI ACTION DISPATCHER AND ROUTINES 
593 >: PRINT TWO BYTES OF DATA 
594 021670 PRIBB: PRINTS MES,<B,MESDATA>,<B,MESDATA+1> 
595 02167 905046 CLR =(SP) 
596 021672 153716 037261 BISB $MESDATA+1, (SP) 
597 021676 005046 CLR -(SP) 
598 021700 153716 037260 BISB $MESDATA, (SP) 
599 0217046 013746 057256 MOV $,<(SP 
021710 oi 746 00000 MOV ,= (SP 
1 021714 01 MOV PoR 
2 021716 104416 TRAP C$PN 
021720 062706 000010 ADD #10,SP 
7 021724 000207 RETURN 
>: PRINT SPECIAL BYTE MASK 
021726 005037 006536 PRIBS: CLR TEMP1 
3608 021732 005037 006540 CLR TEMP 
3609 021736 005037 006542 CLR TEMP 
10 021742 132737 000001 037261 BIT8 #BITO,MESDATA+1 ;BIT 0 = 1 ? 
11 021750 001402 BEQ 10$ NO H 
12 021752 005 006536 INC TEMP1 3SET IT 
3613 021756 132737 000002 037261 10$: ##®BITB $&#BIT1,MESDATA+1 :BIT 1 =1 ? 
3614 021764 001402 BEQ 20$ :NO,BRANCH 
15 021766 00325 006540 INC TEMP? :SET IT 
if 021772 132737 037261 20$: # BITB #BIT2,MESDATA+1 :BIT2 = 1 ? 
1 2000 001402 BEQ 30$ NO, BRANCH 
3618 022002 005237 006542 INC TEMP3 “SET IT 
3619 022006 30$: PRINTS MES,<B,MESDATA>,<B, TEMP1>,<B, TEMP2>,<B, TEMP3> 
3620 022006 005046 LR -(SP) 
3621 022010 153716 006542 BISB  TEMP3, (SP) 
: 022014 005046 CLR - 
3623 022016 153716 006540 BISB8 TEMP2, (SP) 
3624 022022 005046 CLR -(SP) 
5 022024 153716 006536 BI1S8 TEMP1,(SP) 
6 022030 005046 CLR =(S 
7 022032 153716 0372 BISB8 MESDATA, (SP) 
B 022036 013746 037256 MOV MES. <(SP) 
02204 012746 000005 MOV #5,-(SP) 
3630 022046 010600 MOV SP 
31 022050 104416 TRAP  CSPN 
3¢ 022052 062706 000014 ADD #14,SP 
33 022056 000207 RETURN 


rs 


m7 


SEQ 90 
CZDCLA DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 91 
CZDCLA.P11 19-MAR=82 18:19 DUMP EVENT LOG 
3635 .SBTTL DUMP EVENT LOG 
37 
38 022060 010246 REPLOG: MOV Re. = (SP) ySAVE R2,R3.R4 ON THE STACK 
39 022062 010346 MOV -(SP) 
6 022064 010446 R4,=(SP) 
se48 
3643 022 01370 906650 MOV EVIPTR,R2 MAKE R2 A POINTER TO EVENT TABLE 
6 022072 023727 006652 177777 CMP EVTILOG,#=1 iSEE IF EVENT TABLE IS EMP 
3647 022100 001034 BNE 
3648 022102 PRINTS #NULEVT TIF EMPTY TELL OPRERATOR. 
3649 022102 012746 015515 MOV #NULEVT,=(SP) 
3650 022106 012746 000001 MOV #1,-(SP5 
51 022112 010600 MOV SP.RO 
3652 022114 104416 TRAP  C$PNTS 
3653 022116 062706 000004 ADD #4,SP 
3654 022122 000137 023006 JMP ENDEVT :AND END 
3656 022126 162702 000012 RPT: SUB #12,R2 :NOW POINT BACK TO TOP OF ENTRY U 
3697 SJUST PRINTED 
3659 022132 020227 006652 CMP R2,MEVTLOG :POINTING TO TOP OF EVNT LOG QUEUE? 
3660 022136 001010 BNE RPT1 : BR IF NO 
3661 022140 012702 007554 MOV #EVTEND ,R2 [SET R2 TO POINT TO BOTTOM OF LOG 
3662 022144 026227 177776 177777 CMP -2(R2) ,#=1 
3663 022152 001007 BNE RPTO z1F END OF LOG IS NOT EMPTY 
of 022154 000137 023006 JMP ENDEVT SCONTINUE...ELSE EXIT 
3666 022160 020237 006650 RPT1: CMP R2 EVTPTR sARE WE BACK TO POINTER? 
3667 022164 901002 BNE RPT :1F NOT CONTINUE 
3668 022166 000137 023006 JMP ENDEVT SIF SO EXIT.... 
3670 022172 162702 000012 RPTO: SUB 12,R2 :POINT R2 TO START OF ENTRY 
3671 022176 RPTAA: PRINTS aEVIEO *PRINT EVENT ENTRY HEADER 
3672 022176 012746 015555 MOV #EVTFO,-(SP) 
3673 022202 012746 000001 MOV #1,-(SP) 
74 022 010600 MOV 
75 022210 104416 TRAP  C$PNTS 
8 pees Fs enn MOVB = (R2)+,R3 PUT EVENT TYPE INTO R3 — ween 
3678 65 22 115 3 007644 MOVB = (R2)+. EVTTCK 
79 922004 116037 00764 MOVB (R2)+.EVTSEC ;PUT EVENT TIME (TICKS.SECS.MINS IN TEMP LOC.S) 
02 112237 00764 MOVB  (R2)+.EVTMIN 
3681 0 34 PRINTS PeUTFA EVTRIN.EVTSEC EVITCK.EVTLST(R3) :PRINT EVENT TIME AND DESCRIPT. 
34 16346 007610 MOV EVI ST CRS) -(SP) 
40 013746 007644 MOV 7 (SP) 
44 01 166 764 MOV EVTSEC.=¢SP) 
2 O8SSe0 Blanes gysess mov BEVTEL =(SP) 
60 012746 000005 MOV he p 
9 rn 100846 PRAP CSPN 
90 $5 $8 062706 000014 ADD #14,SP 


nN 7 
SEQ 91 
CZDCLA_DUP-11 DATA COMM sid TEST MACY11 30A(1052) 23=MAR-82 16:47 PAGE 92 
DUMP EVENT LOG 


CZDCLA.P11  19-MAR-82 18: 





91 022274 000173 007654 JMP @RPTDSP(R3) :DISPATCH TO DECODING SECTION FOR SPECIFIC TYPE 
3 9 3 13387 007646 RPTTXQ: MOV (R2)+,EVTADD STORE MESSAGE ADDRESS FOR PRINTING 
94 7 00765 MOV (R ie i TBCT | :STORE BYTE COUNT FOR PRIN 
95 92231 03 MOV (R ‘STORE MODEM STATUS FOR PRINTING 
96 : 1 PRINTS seers" EVTADD.EVTBCT | ;PRINT ADDR,BYTE CNT 
9 1 17 7650 MOV EVTBCT,-(SP) 
Bs Bese BISTES Cee ry eri 

0 12746 $0000 MOV Ate =( (36) 

701 0 1 MOV SP-R 

708 0 104416 TRAP 

703 0 g 0627 10 ADD #10,SP 

704 02236 3 BOTS JSR PC,RPTMSB :GO PRINT MODEM STATUS 

705 022346 000137 022126 JMP RPT :GO BACK FOR NEXT EVENT ENTRY 

707 022352 on 337 007652 RPTDER: MOV (R )+ EVTTMP :GET ADDRESS OF DEVICE INFO MESSAGE 

708 02 336 12237 007704 MOV (R2) + DEVI SSTORE DEVICE REG CONTENTS FOR PRINTING 

709 022 012237 007706 MOV (R2)+,DEV2 

710 02 366 PRINTS seutts. EVTTMP ;PRINT DEVICE REG CONTENTS. 

711 0 366 013746 00765 MOV EVTTMP,-(SP) 
le 02237 12746 01575 MOV aEVTE 3 (sp) 
if Bases Biseas °° mg 

ae 02 404 104416 TRAP sad 

mS 029419 oonee: PRINTS W#EVTF3C,DEV1,DEV2 2 

718 022412 013746 0077 MOV DEV2. -(SP) 
35 995623 Olaree OF5r nov nEVIESESr Use» 

t Hasies Sieres Shee my AM 
2 4 1 MOV 
g BEEEE SNE oooo & i 
5 44 $65739 este JMP RPT 7G0 BACK FOR NEXT EVENT ENTRY ; 
50 7 007 RPTDVI: CLR DEVI 
45 7 0077 CLR DEV2 ZCLEAR UPPER BYTES OF DEV1 & DEV2 BEFORE USE 
7? 0077 MOVB = (R2)+, DEVI SSTORE SETUP OPERATION PARAMETERS FOR PRINTING 
112237 0077 MOVB = (R2)+. DEV. 
12237 MOV (R2)+,DEV 
12237 00771 (R2)+, DEVS 
476 01 MOV R2,-( :SAVE R2 ON THE STACK 
023714 JSR PC 760 PRINT MODE, MAINT-LOOP TYPE, PARAMTERS. 
MOV (SP) +,R2 SRESTORE Re 
5 137 022126 RPT :GO BACK FOR NEXT EVENT ENTRY 
ssREPORT END OF PASS OR *C ABORT 
1 RPTABO: 
7 007 RPTEOP: MOV -EVTADD 3PASSES 
, MOV nae: ViBCr :ERnons 
MOV “START TIME OUTS 


PRINTS seit VEVIADD. EVTBCT.EVTTMP | :PRINT ADDR. RXBYTES, CMPBYTES. 
MOV VITMP 


MACY11 30A(1052) rate 16:47 PAGE 93 
DUMP EVENT L 
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022126 


007652 


7652 
ie 


RPTDDE: 
MO 


JMP 
RPTDLE: 
RPTDCK: MOV 

MOV 


MOV 
PRINTS 


: MOV 
PRINTS 


JSR 
PRINTS 


RPT 


(R 9 Ev TARO 
(Re) oe 


(R2)+ VIGMP TOR 
sevtthe EVTADD, eviacr. EVTTMP 


RPT 


(R2)+, EVTADD 
(Re) + EVTBCT 
R2)+,EVTT 


( TMP :STOR 
weuTReae EVTADD EVTBCT,EVTTMP 


(R2)+, EVTTMP 
#EVTFS EVTTMP 


bog Ate. 
Dpthee 
WEVMOCG 


MOV 

MOV 

MOV 

TRAP 
sTHEN GO GET NEXT EVENT ENTRY 


sSTORE MESSAGE ADDRESS FOR PRINTING 
i STORE BYTE ~_ Ai PRINTING 


E TOTAL # MP _ERRORS 
sPRINT ADDR, wn ee + ERRS 


CSPNTS 
#12,SP 
:THEN GO GET NEXT EVENT ENTRY 


3 STORE ae ADDR FOR PRINT 
3STORE BYTE COUNT 

E BYTE COUNT COMP 
sPRINT ADDR, wma ta 41 Ey 


-(SP) 
EVTBCT.-(SP) 
EVTADD.-(SP) 
#EVTF4A, -(SP) 
ag 
CSPNTS 
#12,SP 

: THEN GO GET NEXT EVENT ENTRY 


sPRINT CHANGE TYPE 
yA pb {3} 
iS) 


Sekt s 
ADD #6 
:PUT OLD MODEM Stn rates FOR PRINTING 


7G0 PRINT OLD MODEM 
G0 PRINT “CHANGED 





CZDCLA_DUP-11 
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SEQ 93 
MACY11 30A(1052) 23-MAR-82 16:47 PAGE 94 
DUMP EVENT LOG 
ADD #4,SP 
MOV (R2)+,R3 :PUT NEW MODEM STATUS IN R3 FOR PRINTING 
JSR PC,RPTMSB 'GO PRINT NEW MODEM STATUS 
RPTMSE: JMP RPT :THEN GO GET NEXT EVENT 
ENDEVT: MOV (SP)+,R4 ZRESTORE R4,R3,R2 
MOV (SP)+,R3 
MOV (SP)+,R2 
RTS PC ;RETURN TO CALLING ROUTINE 
sREPORT MODEM STATUS SUBROUTINE 
: PART OF STATISICAL REPORTING (DUMPING EVENT LOG) 
RPTMSB: PRINTS #EVMOHD :PRINT MODEM STATUS HEADER 
MOV #EVMOHD ,- (SP) 
a 
TRAP  C$PNTS 
ADD 44,SP 
MOV #MOBITS ,R4 sMAKE R4 A POINTER TO MODEM SIG. BIT DEF. TABLE 
MOV #MOMSGS, [MAKE R5 A POINTER TO MODEM MSG. POSITION TABLE 
6$: TST [SEE IF BIT AVAIABLE FROM DEVICE 
BNE $ 3BR IF THAT MODEM SIG. AVAIABLE 
MOVB 3 = #"X, @(R5) + [ELSE PUT 'X'' IN REPORT IF SIGNAL NOT AVAILABLE 
TST (R45+ SBUMP R4 TO POINT TO NEXT BIT DEFINITION 
BR 9$ 760 SEE IF CHECKED ALL MODEM SIGNALS 
7$: BIT (R4)+,R3 TIF THERE, SEE IF THAT BIT iN DEVICE'S ENTRY=1 
BEQ 6R IF BIT (SIGNAL) VALUE 
MO #°1,a(R5)+ *IF=1, PUT ‘1°’ IN REPOR GE 
BR 9$ G0 SEE IF ALL MODEM SIGNALS CHECKED 
8$: MOVB #0, @(R5) + TIF BIT(SIGNAL)=0, PUT '0’' IN REPORT MESSAGE 
9$: CMP R4,AMOBITE SSEE IF ALL BITS(SIGNALS) CHECKED 
BLT 6$ [LOOP UNTIL ALL SIGNALS(BITS) CHECKED 
PRINTS M#EVMOST :THEN PRINT MODEM SIGNAL VALUE MESSAGE 
MOV #EVMOST,-(SP) 
wy ah tar 
TRAP  CSPNTS 
ADD #4,SP 
RTS PC ;RETURN TO EVENT DECODING 
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CZDCLA.P11 1 82 18:19 DUMP BYTES OR WORDS 


SEQ 94 
-SBTTL DUMP BYTES OR WORDS 


3+t 
; FUNCTIONAL DESCRIPTION: 
; DUMPSR = DUMP BYTES OR WORDS SUBROUTINE 


THIS SUBROUTINE PRINTS THE CONTENTS OF THE LOCATIONS BETWEEN 

A STARTING AND END ADDRESS IN LOCS. ‘‘STADD’’ AND ‘‘ENADD"’. 

THE WORD OR BYTE CONTENTS ARE PRINTED 8 TO A LINE WITH THE 

ADDRESS OF THE FIRST BYTE AS THE FIRST 6 OCTAL CHARS. FOLLOWED 

BY A SEMICOLON. 

; INPUTS: 

; STADD= STARTING ADDRESS (FIRST LOC. TO PRINT) 
ENADD= END ADDRESS (LAST LOCATION TO DUMP) 
BYTBIT= 1 IF SUPPOSED TO PRINT ‘BYTES’: 

0 IF SUPPOSED TO PRINT ‘WORDS 


; OUTPUTS: 
; CONTENTS OF A RANGE OF LOC.S PRINTED ON THE OPERATORS CONSOLE. 


; CALLING SEQUENCE: 


eS eSe ses e Renee coasusuetsess 


JSR PC,DUMPSR :CALL DUMP BYTES SUBROUTINE 
30 013702 006510 DUMPSR: MOV STADD.R2 ZSET R2 al? TO STARTING ADDR. 
34 00500 DUM4: CLR [CLEAR 
3% PRINTF #BASM1,R2 “PRINT ADDRESS 
8 01 246 MOV R2,-(SP) 
40 012746 015507 MOV #BASM1 ,-(SP) 
44 oi 746 000002 MOV #2,-(SP) 
20 10600 MOV ; 
52 104417 TRAP  CSPNTF 
54 062706 000006 ADD i 
60 005737 006514 DUM3: TST BYTBIT sIS THIS BYTE OR WORD 
64 001416 BEQ ; 
112237 006534 MOVB = (R2)+, TEMP [MOV BYTE TO TEMP 
PRINTF #BASMS,<B,TEMP> ;PRINT BYTE 
005046 CLR -(SP) 
me Granls gies Bie ase 
135 §00002 MOV #2 CSP) 
10 01 MOV SP-RO 
12 10441 TRAP  CSPNTF 
1 062706 000006 ADD #6.SP 
11 BR DUM2 
DUM]: PRINTF #BASM2,(R2)+  ;PRINT WORD 
< B135t8 ons MOY AGAGRS USP) 
127 tates MOV #2 CSP) 
1 MOV 
1044 





SP-RO 
TRAP  CSPNTF 
#6,SP 


BS 

BES 

= 
: 


DUM2: CMP R2,ENADD sCOMPARE FOR LAST ADD 





CZDCLA is ATA C Link TEST 
cEDCLA.PI “82 18:1 
a 000010 
17 
90 7 


909 


391 


0 


023264 000207 


MACY11 30A(1052) 23-MAR=82 16:47 PAGE 96 
DUMP BYTES OR WORDS 


DUMEX: 


BGT 
INC 


RTS 


’ 


PC 


x 
R3 


sIF DONE EXIT 

ELSE BUMP R3 

SHAVE WE PRINTED 8 ACCROSS 

31F SO GO BACK TO 4 

ELSE GO BACK AND PRINT ANOTHER 


OR 
ERE TURN TO CALLER 


SEQ 95 





F 8 


SEQ 96 
CZDCLA 11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 97 
CZDCLA.P1 1 =82 18:19 UPDATE TOTAL CHAR. COUNT SUBROUTINE 
1 .SBTTL UPDATE TOTAL CHAR. COUNT SUBROUTINE 
318 34+ 
14 : FUNCTIONAL DESCRIPTION: 
915 : UPDATES TOTAL CHAR. COUNT TOTCC BASED ON CURCC. 
at: : LAST MESSAGE IS TRUNCATED TO Fr 
1 : BUFFER IF TOTAL CHAR. COUNT EXC EEDS arc IM A MESSAGE 
3318 ; IS PRINTED TELLING THE OPERATOR THE TRUNCATION OCCURED. 
3920 : INPUTS: 
33 1 : CURCC= CHAR. COUNT OF MESSAGE BEING ADDED 
392¢ ; TOTCC= TOTAL CHAR COUNT OF BUFFER ITS BEING ADDED TO 
3924 : OUTPUTS: 
3929 ; MESSAGE TO OPERATOR IF MESSAGE TRUNCATED TO FIT 
927 ; FUNCTIONAL SIDE EFFECTS: 
928 : LOCATION ‘‘TEMP’* USED FOR CALCULATIONS 
929 + CALLING SEQUENCE: 
3930 rs JSR PC,ADCC :UPDATED TOTAL CHAR. COUNT 
a 3 
3934 023266 063737 006520 006530 ADDCC: ADD CURCC, TOTCC zADD CURRENT TO TOT 
3935 023274 022737 001000 006530 CMP #BUFLIN M,TOTCC : COMPARE T Ul 
3936 023302 103027 BHIS TIF NOT MORE THEN ABUFLIM' EXIT 
3938 : PRINT MESSAGE AND TRUNCATE COUNT 
940 023304 PRINTF #MSGTRU 
941 023304 012746 014424 MOV #MSGTRU,-(SP) 
gent Slecsg me a 
023316 10441 TRAP  CSPNTF 
5 023320 0627 ADD #4,SP 
9 3324 1637 i * 994 006530 SUB CURCC, TOTCC : SUB CURRENT FROM TOTAL 
3332 O12 7 001 006534 MO #BUF LIM, TEMP BUFL IN 0 TEMP 
023 163737 0065 SUB TOTCC, TEMP Ary TOT. AL FROM *BUFLIM'’ 
949 0 3 013737 5 006520 MOV TEMP, CURCC SAND ESTABLISH NEW CURRENT 
50 023354 063737 006520 006530 ADD curct, TOTCC *ADD “ADJUSTED CURRENT’’ TO TOTAL CHAR. CNT. 
1 023362 000207 ADDC1: RTS PC [RETURN TO CALLER 





SFQ 97 
CZDCLA_DUP=11 DATA COMM. LINK TEST MACY11 tt et 23-MAR-82 16:47 PAGE 98 
CZDCLA.P11 1 82 18:19 D MESSAGE BUFFERS SUBROUTINE 
-SBTTL BUILD MESSAGE BUFFERS SUBROUTINE 
FUNCTIONAL DESCRIPTION: 
BLDBUF=- BUILD POINTER TABLE AND BUFFERS 


THIS SUBROUTINE ADDS A MESSAGE TO THE TRANSMIT OR EXPECT LIST 
USING THE POINTER, BYTE COUNT, AND ADDRESS PASSED TO IT. 


ad 


TS: 
CURCC= CHAR. COUNT OF MESSAGE TO BE ADDED 
CURADD= ADDRESS OF MESSAGE TO BE ADD 
CPTR= ADDRESS OF POINTER TABLE WORD WHERE MESSAGE POINTERS ARE 


L 
MSGTYP= VALUE TO USE AS AN INDEX TO FIND eae B » MESSAGE DATA 
INDEX INTO DMSGCT() AND DMSGAD() 


PEPTTEETEEEERRERERLE SSS SL SES RASA 


OUTPUTS: 
A MESSAGE ADDED TO EITHER TXBUF OR CMPBUF 
APPROPRIATE POINTERS IN PTRTAB POINTER TABLE 
CALLING SEQUENCE: 
JSR PC,BL ;BUILD MESSAGE IN BUFFER AND ADD PTRS. 
023364 BLDBUF : 
023564 010246 mov Re. ~($P) :SAVE R2 AND R3 ON THE STACK 
023370 013702 006524 MOV OotR Re R2 
023374 013722 0065 6 BLDB1: MOV CURADD,(R2)+ ;PUT CURRENT ADD ON POINTER TAB 
02 013722 0065 MOV cURCC | (R2)¢ 3PUT CURRENT CC ON POINTER TAB 
ve 0102 006524 MOV T UPDATED R2 BACK TO CURRENT POINT 
023410 013702 006516 MOV MSGTYP,R2 :GET MESSAGE TYPE TO USE AS INDEX 
023416 ASL R [DOUBLE FOR WORD INDEX 
3416 1 23 5 6 006534 MOV CURADD, TEMP ZMOVE | CURRENT ADD T TEMP 
4 ? 520 006534 ADD CURCC, TEMP SADD CHAR COUNT o Gr TO GET END 
34 1 703 5 MOV CURADDR SSET R3 To CURRENT START ADD 
01 ei 006540 BLDB2: MOV basecT in ), TEMP2 
1 1 17 MOV GAD(R2)-RG sPUT STARTING FROM ADD IN R4 
50 7 54 ADD tADD IT TO TEMP2 TO GET END OF FROM 
993 023454 11 423 BLDB3: MOVB (R&)+,(R3)+ [MOV BYTE FROM PATTERN TO BUFFER 
34 337 006534 CMP R3, TEMP TALL DONE? 
14 BEQ BLOBEX SIF SO EXIT 
0437 006540 CMP R4, TEMP2 °1$ PATTERN COUNT EXPIRED 
0 17 BEQ BL be t1F $O GO START 
ue iF IN NOT GET ANOTHER BYTE 


BR 
74 006520 006526 BLDBEX: ADD CURCE, CURADD sBUMP CURADD 
502 A 603 MOV A sRESTORE RS AND R2 


S86 MOV (den 
RTS zRETURN TO CALLER 


S888 
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CZDCLA.P11 1 B82 18:19 CREATE FACSIMILE OF TX BUFFER AND MESSAGE LIST 


rts: -SBTTL CREATE FACSIMILE OF TX BUFFER AND MESSAGE LIST 
s008 
400 SFUNCTIONAL DESCRIPTION: 
rts 3 FACSIMILE: THIS ROUTINE IS wee TO CREATE A getter a OF THE 
3 OF THE TRANSMIT LIST AND aye at | ls ae IN THE 
4010 3 EXPECTED re AND EXPECTED BUFFER *, THE ROUTINE IS 
4011 8 NORMALLY LED WHEN USER COMMAND ‘SET E CXPECTJ= 
ped 3 T PRANSMITI: iE ENTERED. 
rity} 3 CALLING SEQUENCE: JSR PC,FACSIMILE 
401 i= 
tors é DEFINITIONS CMPBUF = EXPECTED in BUFFER HOLDS MAX 512 BYT 
4018 3 TXBUF = TRANSMIT A BUFFER HOLDS MAX 512 BYTES 
4019 3 TTOTCC = NUMBER OF BYTES IN TXBUF 
4020 ; PTRTAB = TOP OF MESSAGE LIST POINTER TABLE 
4021 3 CTOTCC = NUMBER OF BYTES IN EXPECT MESSAGE 
1056 3 CMPTOT = NUMBER OF EXPECTED MESSAGE 
402 $ CMPPTR = EXPECTED MESSAGE LIST POINTER 
4024 3 TXPTR = TRANSMIT MESSAGE LIST POINTER 
4025 3 TXMTOT = NUMBER OF TRANSMIT MESSAGES 
4026 3 CCURAD = STORAGE ADDRESS OF MESSAGE IN CMPBUF 
1056 3 MSGLIN = MAXIMUM NUMBER OF MESSAGES THAT CAN BE STORED 
4029 $ BEGIN FACSIMILE ROUTINE 
4030 , (COPY TXBUF ==> CMPBUF*) 
4031 3 - » SAVE 
1038 8 “es i 
403 3 - -REPE 
4034 3 nenok EAPQUE IAT =CTXBUF IR 
4035 3 eee RISER 
£038 3 . UNTIL RI = BUFLIM 
4038 3 (*NOW CALCULATE EXPECT LIST MESSAGE POINTER*) 
rr'rt4 PY --CMPPTR = PTRTAB + (2 * MSGLIM) 
4041 $ (*NOW wy! mL. WHILE = DO LOOP*) 
404 3 ee TXPTR = PTRTAB 
404 $ - My 
4044 ; 2 TXPTR = TXPTR + 2 
4045 : --CTOTCC = Tetons 
ones g TOT = 
404 F} ; WH LE TXMTOT <> CMPTOT DO 
4048 é eeeeLCMPPTR] = CCURAD 
4049 : peed (stk = CMPPR 
4050 —— 3 eeeeLCMPPTR] = CTOTCC 
4051 $ eooelTXPTR = TXPTR + 4 
$036 3 eeeeCCURAD = FeuRAD + CTOTCC 
405 3 eee CTOTCC = CTXPTRI 
4054 3 eee eC MPPTR = CMPPTR + 
4055 3 eee CMPTOT = CMPTOT + 
£236 3 WHILE re 
405 3 *“CTOTCC = oTcc 
58 3 END PAESIMILE ROUT INE 


CZDCLA_DUP-11 DATA COMM. LINK 
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4060 
4061 


4064 
4065 


406 


023510 


023710 
023712 
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gionee 
tt 161 


sai 
i 
012701 
006301 
006301 
012737 
060137 
005001 


012737 


013737 


012601 
000207 
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TEST 


005150 


006444 


006446 
162614 
0064 


006450 


SEQ 99 
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CREATE FACSIMILE OF TX BUFFER AND MESSAGE LIST 


FACSIMILE: 
MOV R1,-(SP) 
CLR R 
10S: Ove TXBUF (R1) , CMPBUF (R1) 
CMP R1 ,ABUFLIM 
BNE 10$ 
20$: MOV #MSGLIM,R1 
ASL R1 
ASL R1 
MOV #PTRTAB,CMPPTR 


ADD R1,CMPPTR 
R1 


;SET UP pat = DO LOOP 


MoV RTAB, TXPTR 
MOV a PRUE CCURAD 
ADD #2,TXPT 
MOV aTXPTR,CTOTCC 
CLR CMPTOT 

30$: C 
BEQ 4 
MOV CCURAD ,@CMPPTR 
ADD #2,CMPPTR 
MOV CTOTCC, @CMPPTR 
ADD é 
ADD CTOTCC, CCURAD 
MOV STXPYR CTOTCC 
ADD #2,CMPPTR 
Inc CMPTOT 

30$ 

OE ND WHILE = DO 

408: Mov TTOTCC, CTOTCC 
:END ROUTINE 
MOV (SP)+,R1 
RTS PC 


E 
T R1 
Y 


ALL DATA COPIED ? 
-BRANCH 


sMESSAGE LIMIT 

;MULTIPLY BY 

;MULTIPLY BY 

zTOP OF POINTER TABLE 

START OF EXPECTED POINTER TABLE 


TX POINTER NOW AT TOP OF TABLE 
TRANSFER ADDRESS OF 1ST MESSAGE 


sBUMP POIN 
7BYTE COUNTER 1ST MESSAGE 
sINIT EXPECTED MESSAGE COUNT 


WHILE TX MESSAGE TOTAL <> EXPECTED MESSAGE TOTAL DO 
MP TXMTOT ,CMPTOT 3AL 


t MESSAGES COPIED ? 
TRANSFER —- GF M 35AGE 
BUMP POIN 
sBYTE ge! OF MESSAG 


SCALC. T 
BYTE COUNT NEXT 


BUMP 
ZINCREMENT MESSAGE COUNT 


COPY TOTAL CHARACTER COUNT 


sRESTORE R1 
RETURN 


J 8 
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SEQ 100 


CZDCLA.P1 19-MAR-82 18:19 HOW MODE OF OPERATION, LOOP TYPE AND QUALIFIERS 
2193 -SBTTL SHOW MODE OF OPERATION, LOOP TYPE AND QUALIFIERS 
4105 
2108 : FUNCTIONAL DESCRIPTION: 
410 SHWOP = SHOW MODE OF OPERATION, LOOP, QULAIFIERS 


PRINTED ON THE OPERATOR'S CONSOLE. 


; INPUTS: 

; DEVI= MODE TYPE. (WODTYP? 

; DEV2= MAINT LOOP TYPE (MLTYP) 
; DEV3= "RUN PASS'' COUNT (RPASS) = COUNT DOWN 
; DEV4=  PARAMTERS WORD (PARAM) 
; IMPLICIT INPUTS: 

; MODES= TABLE OF ADDRESSES OF MODE NAME STRINGS 
; LOOPS= TABLE OF ADDRESSES OF LOOP TYPE NAMES 


Pe ot oY ot ot ot ot ot ot of ot ot ot at nt 
ee ee ed ced ed ed ed ed eed aed od = 


SISVRGRAVVSSaHVSeARAV=sS 


: CALLING SEQUENCE: 
: JSR PC, SHWOP 

023714 013702 007704 SHWOP: MOV DEV1,R2 GET THE MODE TYPE IN R2 

0237 00630¢ ASL R2 [MAKE IT A WORD TABLE OFFSET 
4126 023722 01625 003102 006534 MOV MODES (R2), TEMP 3GET ADDRESS OF MODE-IN-AS<iI 
4127 023 013702 007706 MOV DEV2,R2 :GET MAINTENANCE LOOP TYPE 
4128 003734 0063 ASL oR a ad 
4129 023 012737 013724 006542 MOV #LPOO, TEMP3 ;LOAD TEMP3 TO POINT TO *'/LOOP= 
4130 023744 00570 TST R2 3SEE IF /LOOP=XXXXX OR NONE 
4131 023746 001 BNE 10$ : BR IF /LOOP= OF SOME KIND 
4138 023750 012737 013723 006542 MOV bLPO,T mp3 IF NO LOOP THEN DON'T PRINT °‘/LOOP=" 
4133 023756 0162 7 003120 006536 10$: MOV (OOPS (Ro) TEMP1 :GET ADDRESS OF LOOP-IN-ASCII 
4134 023764 013737 007710 006540 MOV DEV 6 :G OF PASSES 
4135 02377 PRINTS #SHFO, TEMP, TEMP3, TEMP1, TEMP2 
4136 023772 013746 006540 MOV TEMP2,-(SP) 
4137 023776 013746 006536 MOV TEMP1 .=(SP) 
4138 024002 013746 00654 MOV TEMP3,-(SP) 
4139 024 013746 006534 MOV TEMP, (SP) 
4140 026012 012746 014507 MOV #SHFO,-(SP) 
6141 024016 012746 000005 MOVS #5,-(§ 
4142 024022 01 V Pp 
4143 024024 104416 TRAP C$PNTS 
4144 024026 062706 000014 ADD #14,SP 
4146 024032 00500 CLR R2 zNOW SET WP FOR QUALIFIERS IN ASCII 
yi] 4034 ize 014003 006534 MOV #PST, TEMP 
4148 024042 032737 000001 007712 BIT #STATB, DEVS :SEE IF /STATUS OR /NOSTATUS 
4149 02405 1003 BNE 1$ ‘BR IF /STATUS 
4150 02405 ot 737 014001 006534 MOV ST, TEMP 
4151 0246 12737 014014 0068 6 1$: MOV #PCK, TEMP1 
413¢ 4066 032737 000002 712 BIT MDATCKB,DEV4 § ; SEE IF /CHECK OR /NOCHECK 
415 4074 001 3 BNE 2$ BR IF /CHECK 
4154 024076 01 14012 536 MOV #PNCK TEWP 1 
4155 0246104 012737 0140 634 2$: MOV spec TEM 
415 ait 56737 71 BIT He PEHOS OEY :SEE IF /ECHO OR /NOECHO 
4158 5415 03993 014022 006540 MOV #PNEC, TEMP2 ‘ 





SPO DUP=11 DATA COMM 
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OW MODE OF OPERATION, LOOP TYPE AND QUALIFIERS 


SEQ 101 


4$: MOV #PPR, TEMPS 

BIT #PROTOB ,DEV4 sSEE OF /PROTOCOL OR /NOPROTOCOL 
BNE 3$ ;BR IF /PROTOCOL 

MOV #PNPR , TEMP4 


3$: MOV #PMS , TEMPS 
BIT #MOCHK ,DEV4 SEE IF /MODEM OR /NOMODEM 
BNE 5$ :BR IF MODEM 
MOV #PNMS , TEMPS 


5$: PRINTS #SHF1,TEMP,TEMP1,TEMP2,TEMPS,TEMP4 ;, TEMPS 
MOV TEMP4 ,~(SP) 


MOV TEMP, (SP 
MOV #SHF1,-(SP) 
wy iets 
TRAP  C$PNTS 
ADD #16,SP 


RTS PC ;RETURN 


CZDCLA_DUP=11 DATA com LINK TEST 
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SS 
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003132 
003134 


000013 


024310 
024310 


024406 


5 060008 
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E COMMAND LINE SUBROUTINES 


~SBTTL TRAVERSE COMMAND LINE SUBROUTINES 


+t 
: PSTRV SUBROUI TNE 


:PARSE THE COMMAND LINE SUBROUTINE 
AKE ACTIONS (VIA ACTION TREE) AS PARSING LINE 
:PARSING a FROM "*CLI PARSING NODES" 


3 R1,R5=SCRATCH PSNUM=NUMERIC CODE FROM DATA 
3 RS=panse™ CODE PARAMETER FROM TREE 
; =PARSE TREE POINTE 
3 TRING POINTER 
$ CALLING. SEQUENCE: 
3 JSR PC ,PSTRV 
PS$TRV: 
PSBUFA,R4 
MOV 4h eal °R3 
PSTRS: it dy te 3SEE IF ANY CHARS LEFT IN INPUT STRING 
CMPB (R3) ,#11. iSEE Md sere iee CLI CHAR CODE OR ASCII 
BGT REGULAR ASCII CHAR. 
= ale R5 GET SPECIAL CHAR CODE INTO RS 
pod ist RS ;BUILD TRAVERSE ROUTINE ADDRESS 


JSR Natt: 5) zJSR TO SPECIAL CLI TRAVERSE ROUTINE 
BR PStRs [GO SEE IF MORE OF STRING LEFT 


10$:  .WORD TRVERR-10$ s TRAVERSE TABLE FOR ‘CLI FUNTIONS'’ 
“WORD TRVEXI-10$ 31 
“WORD TRVBR-10$ 2 
“WORD TRVBIF-10$ : 
“WORD TRVSPA-10$ 34 
“WORD TR 10$ 35 
“WORD TRVALP-10$ i6 
“WORD TRVALN-10$ : 
“WORD  TRVOCT-10$ 8 
“WORD TRVDEC-108 : 
“WORD TRVSTR-10$ 10 
:NOT A SPECIAL CODE 
20$:  CMPB  (R3),(R4) :SEE IF FIRST CHAR OF STRING IS A MATCH 
BEQ 223 *BR IF A MAT H 
JSR PC, TRVBRC Z1F NOT A MATCH, GO TAKE MISS BRANCH 
BR : THEN GO BACK Msr8 G TO MISS NODE 
22$: JSR PC, TRVACT :1F A MATCH, GO DO ACTION DEFINED BY 
ADD #4,R3 3 ACTION CObE IN CLI NODE, THEN 


AD TO E 
INC R4 SADJUST BUF PTR TO NEXT CHAR IF MATCH 
BR PSTRS 


SEQ a 














SEQ 103 
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CZDCLA.P11 ERSE COMMAND LINE SUBROUTINES 
4241 
434 024364 000207 PSEXIT: RTS PC ;RETURN FROM PARSER 
4245 
4246 >GOTO USER ACTION N ROUTINE 
4247 024 116302 000001 TRVACT: :GET ACTION CODE FROM CLI NODE 
4268 02437 94270 177400 BIC HRs) obs R2 CLEAR ANY SIGN EXTENSION 
4249 024376 013705 003136 MOV PSACT,R5 ADDRESS OF CLI ACTION ROUTINE 
4250 024402 004715 JSR PC,(R Rs) Aa "0 ACTION DEFINED BY CODE 
4 31 024404 000207 RTS PC SRETURN TO CALLING C 
425 > TAKE BRANCH IN TREE 
4254 024406 016305 000002 TRVBRC: MOV 2(R3) RS :GET BRANCH p SPLACEMENT FROM TREE 
4255 024412 060503 ADD R5,R3 AND POINT R To THE 'MISS'' NODE 
4296 024414 000207 RTS PC + RETURN TO P$TR 
4258 :NO BRANCH TAKEN 
4259 024416 062703 000004 TRVNOB: ADD #4 .R3 ;THINGS OK, UPDATE R310 POINT TO NEXT 
4260 024422 000207 RTS PC + NODE AND RETURN TO PSTRV 
42 0p ee ee ee ee SS 2 ee Se me Se ee SS me me oe a SS o> =D 
4263 024424 004737 02436 TRVERR: JSR PC TRYACT : TAKE ERROR ACTION. 
4264 0264 M2737 177777 003147 MOVB #1 P 3SET ERROR RETURN FLAG 
4265 024436 00 726 TST sPse [GET RID OF “JSR PUSH TO TRVERR’ 
4266 024440 000137 024364 JMP eee SRETURN DIRECT TO EXIT OF PSTRV ROUTINE 
4268 024444 004737 024366 TRVEXI: JSR PC, TRVACT :TAKE EXIT ACTION 
4269 024450 105037 003147 CLRB = P$GDBD SET GOOD/BAD FLAG TO “'SUCCESS (0)" 
4270 024454 005726 TST (SP)+ *GET RID OF “JSR PUSH TO TRVEXI'’ 
4271 024456 000137 024364 JMP PSEXIT SRETURN DIRECT TO EXIT OF P$TRV ROUTINE 
4273 024462 004737 024366 TRVBR: JSR PC, TRVACT :G0 TAKE BRANCH ACTION 
427% 024466 000137 024406 JMP TRVBRC 
4276 024472 004737 024366 TRVBIF: JSR PC, TRVACT 
4277 024476 105737 903147 TSTB © P$GDBD :SEE IF PS$GDBD SET OR CLEARED BY ACTION 
4278 024502 00140 BEQ 1$ 3IF CLEAR FALL THRU TO NEXT NODE | 
4279 024 504 137 024406 JMP TRVBRC SELSE TAKE THE 'MISS'’ BRANCH 
4280 024510 137 024416 1$: JMP TRVNOB ‘JUST UPDATE TO NEXT NODE IF THINGS OK 
4282 024514 005005 TRVSPA: CLR RS ICLEAR "SPACE OR TAB FOUND’ FLAG 
428 4316 121427 000011 1$: CMPB «(RGD , #11 :SEE IF SHAR IN CMD LINE= TAB 
4284 0245 1003 BNE 2$ :BR iF 
4285 024524 005204 INC RS + INC Nout STRING POINTER 
4286 4526 005 93 INC R5 EINDICATE A TAB FOUND 
4287 24530 000772 BR 1$ *G0 CHECK NEXT CHAR 
4289 024532 1 1437 000040 2s: CMPB ss (RG) , #40 :SEE IF CHAR. IN CMD LINE= SPACE 
4290 0245 1003 BNE 10$ [BR IF NO, NON-SPACE OR NON-TAB CHAR. 
4291 02654 5204 INC R4 SINC I STRING POINTER 
429 454 5205 INC RS SINDICATE A SPACE 
429 4544 BR 1$ 'GO CHECK NEXT CHAR 
4294 02454 4546 705 10$: TST R5 [SEE IF ANY SPACES OR TABS FOUND 
4295 0014 BEQ 15$ ‘BR IF NO, TAKE NO ACTION 
4296 b5aee 737 0246366 JSR PC, TRVACT [GO TAKE ACTION IF ANY FOUND 











SEQ 104 
CZDCLA 11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR=82 16:47 PAGE 105 
CZDCLA.P1 1 =82 18:19 E COMMAND LINE SUBROUTINES 
4297 02455 137 024416 JMP TRVNOB :JUST GO UPDATE R3 TO NEXT NODE IF OK 
4298 Sree: poeta erehy 15$:  JMP TRVBRC AKE BRANCH (MISS) IF NONE FOUND 
4 
4301 024566 012737 000012 003144 TRVDEC: MOV #10. ,PSRADX sUSE DECIMAL AS RADIX AND ASSUME + 
4 ¢ 024574 137 024606 MP 
4 024600 TRVOCT: ;(SAME AS TRVNUM SINCE DEFAULT RADIX IS OCTAL) 
4 024600 012737 000010 003144 TRVNUM: MOV #8. ,PSRADX sUSE OCTAL AS RADIX AND ASSUME + 
4305 024 995005 TRVNMA: CLR R5 [CLEAR DIGIT COUNTE 
4 4610 121427 000053 CMPB sé RG) H+ 3SEE IF THERE * S A + SIGN THERE 
4 024614 001001 BNE 10$ : BRI 
4308 024616 0004 BR 11$ + ELSE PSRADX X ALREADY SAYS +, JUST BR 
4309 024620 121427 000055 10$:  CMPB  (R4),#'- SEE If THERE'S A = SIGN THERE 
4310 024624 001 BNE 1$ 3 BR IF NO 
4311 024626 112737 177777 003145 MOVB  #=1,PSRADX+1 SSET ‘MINUS FLAG’ (HI BYTE OF PSRADX) 
$3! 024 005204 118: INC R4 sBUMP R4 TO POINT TO FIRST CHAR 
4314 024636 121427 000060 1$: CMPB ss (RG) , #60 :SEE IF CHAR. LESS THAN A "0" 
4315 024642 0024 BLT 2$ <BR IF YES (NOT NUMERIC) aoe 
4316 0 121427 000067 CMPB —s-« (RG) , #67 SSEE IF CHAR. GREATER THAN A "7" 
4317 024650 00 26 BLE 13$ : BR IF YES 
4318 024652 123727 003144 000012 CMPB = PSRADX,, #10. [SEE IF IN DECIMAL MODE 
4319 024660 001417 BEQ : BR IF YES (CAN USE HIGHER LIMIT) 
4320 024662 121427 000071 CMPB ss (RG) , #771 *SEE IF DIGIT WAS A 8 OR 9 
4321 Be 003022 BGT “BR IF 
432 467 | PRINTF A#CLIBRX SELSE WAS A 8 OR 9 WHEN IN OCTAL RADIX 
4323 024670 012746 011700 MOV #CLIBRX,-(SP) 
4326 024674 012746 000001 MOV #1,-(SP) 
4325 0246 010600 MOV SP. 
4326 024702 104417 TRAP  CSPNTF 
4327 024704 0627 900004 ADD #4,SP 
4328 024710 112737 177777 003147 MOVB = #1, PSGDBD ;SET ERROR RETURN FLAG 
4329 024716 000474 BR 5$ : PRINT ERROR AND TAKE MISS 
4331 0 4 121427 000071 12$:  CMPB  (R4),#71 :SEE IF CHAR. GREATER THAN A ‘9"° 
4 2 4726 BGT 2$ <BR IF YES (NOT R 
4333 0267 13$: INC RG [UPDATE CMD LINE PTR TO NEXT CHAR. 
4334 0246 INC RS S INDICATE A NUMERIC FOUND 
4335 4 41 BR 1$ *G0 LOOK AT NEXT CHAR. 
1338 47 2$: TST RS 3SEE_IF FOUND ANY MERI 
4 38 4 BEQ 5% [BR IF NO, TAKE ' BRANCH 
4 39 47% HOV R4RI :GET POINTER TO stan OF NUMERIC STRING 
4341 0267 003142 CLR PSNUM :CLEAR LOC. WHERE VALUE WILL BE STORED 
4 2 47 3$: MOVB = (R1) +, R2 :GET ASCII CHAR AND CONVERT IT TO A @ 
4 47 900060 SUB #60,R2 
4 47 14 ASL PSNUM :SHIFT CURRENT VALUE TO MAKE ROOM 
4345 0267 BCS [ERROR IF NUMBER TOO BIG 
4 47 003142 003140 mov CSNUN.PSCNT [SAVE FOR LATER IN CASE DECIMAL RADIX 
4 acs ZERROR IF NUMBER TOO BIG 
4 003142 ASL PSNUM 
4 BCS TERROR IF NUMBER TOO B1G 
435 003144 000012 CMPB  —s- PSRADX,,#10. iSEE IF DECIRAL RADIX 
4352 BNE 4$ BR I 
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exe 
aes 


003140 
003142 


003145 

3142 
024366 
024416 


011656 
000001 
000004 
177777 
024406 


000101 
000132 


went ATA COMM. LINK TEST 
1 wth 


003142 


003147 


SEQ .05 


MACY11 SPACIOe? 23-MAR-82 16:47 PAGE 106 
E COMMAND LINE SUBROUTINES 


4$: 


15$: 


7$: 


5$: 


TRVALP: 
1$: C 


2$: 


3$: 


TRVALN: 
10$: 


1$: 


2$: 


3$: 


Pp 
PC, TRVACT 
TRVNOB 


#CLINBG 


#-1,P$GDBD 
TRVBRC 


RS 
(R4) ,#101 
(R4) ,#132 


PC, TRVACT 
TRVNOB 
TRVBRC 

R5 

ot) 060 
(R4) #72 
1$ 

R4 

R5 

10$ 

(R4) #101 
2s 

(R4) #132 
2s 

R4 

ios 

RS 

3$ 

PC, TRVACT 
TRVNOB 
TRYBRC 


sERROR IF NUMBER TOO BIG 
sERROR IF NUMBER TOO BIG 


:SEE IF NUM WAS PRECEDED BY A = SIGN 
: ELSE NEGATE THE NUMBER BEFORE LEAVING 
‘SiN CE NUMERIC FOUND. GO TAKE A 

:GO POINT R3 TO NEXT NODE 


;PRINT NUMBER TOO BIG ERROR 
MOV #CLINBG,-(SP) 
mov a= ={sP5 
TRAP ESONTF 
SET ERROR RETURN FLAG 
AKE ‘MISS’ BRANCH 


CLEAR ALPHA FOUND FLAG 
3SEE IF CHAR. LESS THAN A “‘A 

3BR IF YES ( ) ae 
3SEE IF CHAR. GREATER THAN A "Z 
3BR IF YES (NOT ALPHA 

ZUPDATE CMD LINE PTR TO NEXT CHAR 
INDICATE AN ALPHA WAS FOUND 
:G0_LOOK AT NEXT CHAR. 

3SEE_IF ANY ALPHA'S WERE FOUND 
31F_ANY FOUND TAKE ACTION 

{THEN UPDATE, RS. TO. NEXT NODE “NO BRANCH 
3NONE FOUND, TAKE MISS BRANCH 


;CLEAR ALPHANUM FOUND FLAG 
SEE IF CHAR. LESS T 0 
BR_IF YES (NOT NUMERIC OR ALPHA) 
SEE IF CHAR. GREATER THAN A ‘9°’ 
BR IF YES (NOT RIC 

;UPDATE CMD LINE PTR TO NEXT CHAR. 
INDICATE A F 

0 LOOK AT 


NEXT CHAR, 
E IF CHAR. LESS THAN A “A 
:BR IF YES (NOT ALPHA Nem 
:SEE IF CHAR. GREATER THAN A “Z 
YES (NO 
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SEQ 106 
CZDCLA 11 BATA DATA. COMM, LJ LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 107 
CZDCLA.P1 18:1 E COMMAND LINE SUBROUTINES 
4409 
iit 
sale 0 5 10401 TRVSTR: MOV R4,R1 :POINT R1 TO CMD STRING 
441 5250 01030 MOV R3,R5 
4414 02525 270 900006 ADD #6 RS :POUNT RS TO MATCH STRING FROM CLI NODE 
4415 025 36 00 9 14 CLR ENT SCLEAR CHAR MAT 
4416 5 105715 2$: TSTB8 ss (5) :SEE IF END OF MATCH S'RING YET 
4417 025266 001411 BEQ 10$ 'BR IF YES 
4418 025 105711 TSTB = (R11) [SEE IF END OF CMD LINE YET 
4419 025 901407 BEQ 10$ :BR IF YES 
4420 025272 121115 CMPB =. (R’1), (RS) 3SEE IF CHARACTERS MATCH 
4421 025274 001005 BNE 10$ NO 
44 ‘ 9 5 76 005237 003140 INC PSCNT <MATCH -INCREMENT MATCH COUNT 
44 5 908 01 INC R1 [UPDATE STRING POINTERS 
4424 025304 005 03 INC RS 
44 5 025306 00076 BR 2$ :BR TO CONTINUE CHECKING CHARS. 
44 $ 0 5310 005737 003140 10$: TST PSCNT sWHEN DONE SEE IF ANY MATCHES FOUND 
4428 025314 001406 BEQ 15$ NO, GO THE MISS BRANCH 
4429 025316 0101 MOV R1,R4 {POINT CMD POINTER TO END OF STRING & 
4430 025320 004737 024366 JSR PC; TRVACT TIF A mATCH FOUND, GO DO MATCH ACTION 
4431 025324 066303 000004 ADD 4(R3) ,R3 UPDATE R3 TO NEXT NODE (NO BRANCH) 
rk 0253 000207 RTS PC : (NO RETURN THRU TRVNOB SINCE DIFFERNT 
4435 t DISPLACEMENT DUE TO MATCH STRING) 
445 025332 000137 024406 15$:  JMP TRVBRC : GO TAKE BRANCH 


3 (PARSED OK), -1 IF ILL CMD..... 








SEQ 107 

CZDCLA 11 DATA C LINK TEST MACY11 30A(1052) 23-MAR=82 16:47 PAGE 108 
cibeun Pht 1DAMARCRO” 18:19 REPORT CODING SECTION 

4439 .SBTTL REPORT CODING SECTION 

4440 

it 

444 3 JHE REPORT CODING SECTION CONTAINS THE 

rks ; Pants” CALLS THAT GENERATE STATISTICAL REPORTS. 

646 

444 025336 BGNRPT 

4448 025336 LSRPT:: 

“3 

4451 025336 004737 020612 JSR PC,REPORT :CALL SUBROUTINE TO DUMP EVENT LOG 

ane : AND BASE TABLE 

445 

4454 

4455 

4456 

445 02534 ENDRPT 

4458 025 L10010: 

4459 025342 104425 TRAP _— C$RPT 


CZDCLA 


CZDCLA.P1 


sah 


025344 
095346 
025350 


025352 


11_DATA COMM. LINK TEST 
1SSMARCBD 18:19 


177777 
177777 
177777 
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MACY11_ 30A(1052) 23-MAR-82 16:47 PAGE 109 
PROTECTION TABLE 


-SBTTL PROTECTION TABLE 


"Ta HIS TABLE IS USED BY THE RUNTIME SERVICES 
3 TO PROTECT THE LOAD MEDIA. 


BGNPROT 

LSPROT:: 
-1 sOFFSET INTO P-TABLE 44 CSR ADDRESS 
-1 SOFFSET INTO P=TABLE FOR MASSBUS ADDRESS 
-1 [OFFSET INTO P=TABLE FOR DRIVE NUMBER 
ENDPROT 
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11_ DATA COMM. LINK TEST 
19=MAR=82 18:19 


177777 
000040 


000037 


000036 


026120 
000035 


006566 
006626 


006622 
000114 


8 


006566 INITI: 


$1: 


START: 


006632 






THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
: AT THE BEGINNING OF EACH PASS. 


BGNINIT 

CLR KEYWD1 
TST DCLFLG 
BEQ INIT 
CLR DCLFLG 
DOCLN 


MOV #-1,RESFLG 
READEF ve. START 


BCOMPLETE STAR! 
READEF #EF .RESTART 


BCOMPLETE RESTRT 
READEF #EF .CONTINUE 


BNCOMPLETE $1 


JMP ENDIT 
READEF #EF .NEW 


BCOMPLETE NEW 
BR GETPRM 
CLR RESFLG 
CLR CLKVEC 


MOV #CLKCSR,R2 
CLOCK §L,R1 


BNCOMPLETE $2 


JSR PC, CLKSET 
MOV #LCLKEN, CLKEN 








025510 





$2: 
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MACY11 30A(1052) 23=MAR-82 16:47 PAGE 110 
INITIALIZE SECTION 


-SBTTL INITIALIZE SECTION 





LSINIT:: 


: INIT gl comes STORAGE VARIABLE 
7"EXIT® COMMAND ? 


*NO, BRANCH 
SINIT "DO CLEAN VARIABLE 
:GO CLEANUP AND EXIT 
TRAP  C$DCLN 


SET RESTART FLAG 
IF HERE CAUSE OF START,DO SOME INIT 
MOV #EF START RO 
TRAP CSREFG 
ART 


BCS ST 
zIF HERE CAUSE OF RESTART, DO SOME INIT 
MOV rt le RO 


TRAP 
BCS RESTRT 
sSEE IF WE*RE HERE CAUSE OF A CONTINUE 
MOV #EF CONTINUE ,RO 
TRAP CSREFG 


3BR IF NOT HERE CAUSE OF alae 


8 $1 
3JMP IF HERE CAUSE OF A CONTINUE 
3SEE IF THIS IS A ‘NEW se 


#EF .NEW,RO 
TRAP CSREFG 
3IF YES, BR AROUND LOGUNIT # SETUP 
BCS NEW 


CLEAR RESTART rs SINCE wit ON START 
3 CLEAR gbk VECTOR PTR. AS A FLAG IN 


cL 
SETUP Re AS A PTR. TO CLOCK INFO BLOCK 
LOOK FOR A LINE CLOCK L.RO 


MOV L. 
TRAP estice 
MOV RO,RI 

: IF NONE THERE GO LOOK FOR A P-CLOCK 


:.GO SET UP CLOCK INFO TABLE © CLK VEC. 
sSETUP THE ENABLE LINE CLOCK DATA 





CLOCK P,R1 





;LOOK FOR A P-CLOCK SINCE NO LINE CLOCK 
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MACY11 30A(1052) 23-MAR-82 16:47 PAGE 111 
INITIALIZE SECTION 
MOV #°P,RO 
TRAP  C$CLCK 
MOV RO,R1 
BNCOMPLETE $3 : IF NONE THERE GO SEE IF THIS 1S LSI 
JSR pc CLK -CLKSET : ELSE GO SET UP CLOCK INFO & VECTOR 
ADD 3POINT CLKCSR TO P=CLK COUNT SET REG. 
MOV aptkcT ScLKCSR CLK SET REG. WITH COUNT VALUE 
SUB #2, R POINT CLKCSR BAC TO P=CLK CSR 
MOV #PCLKEN, CLKEN ‘SETUP THE ENABLE THE PetLK DATA 
BR RESTRT 
$3: READBUS ;READ BUS TYPE TO SEE IF ON AN st. al 
BNCOMPLETE $4 sBR IF NOT, NO CHANCE OF A CLOCK 
MoV #100, CLKVEC OAD 100 AS CLK VECTOR 
CLR it OAD 0 AS CLK INT. LEVEL 
MOV acl N,CLKCSR SKLUDGE UP THE CSR & ENABLE DATA LOCS 
GMANID L5060,CLKHZ,D,377,50.,60.,YES 
TRAP  C$GMAN 
BR 10000$ 
.WORD  CLKHZ 
“WORD TSCODE 
“WORD 43060 
“WORD 377 
“WORD TSLOLIM 
“WORD TSHILIM 
10000$: 
BR RESTRT 
$4: PRINTF #BDCLK y INFORM OPR. NO CLOCK, te EXIT INIT 
#EDCLK, 55(SP) 
MOV SP-RO 
TRAP SCeNTF 
ADD #4,SP 
RESTRT: CLR TIMMIN ZCLEAR TIME SINCE START LOCATIONS 
MOV CLKHZ, TIMTCK ZLOAD TICKS/SEC 
MOV aEVTL LOG,R2 SINIT EVENT TABLE TO ALL 1°S AFTER EACH 
in mov R2 ,EVTPTR * START OR RES AND INIT TABLE POINTER 
CMP ne. pntenn :SEE IF REACHED END OF TABLE 
BNE SLOOP UNTIL DONE 
NEW: MOV #~1, LOGUNT ZINITIALIZE LOGICAL UNIT # 
GETPRM: INC LOGUNT POINT 10, NEXT LOGICAL UNIT 
MP LOGUNT ,LSUNIT SSEE IF P LOG. UNIT 
BGE NEW <BR IF ves "0 START OVER 


GPHARD LOGUNT,R1 


= 


:GET THE P-TABLE FOR THIS. L0G. UNIT a 
TRAP  C$GPHRD 


SEQ 110 





SEQ 111 
CZDCLA DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 112 
CZDCLA.P11 1DCMARCES 18:19 INITIALIZE SECTION 
4588 0 010001 MOV RO,R1 
4589 23 BNCOMPLETE GETPRM z1F NO P=TABLE AVAIL., GO GET NEXT ONE 
4290 5740 103365 Bcc GETPRM 
439¢ 025742 011137 006574 MOV (R1) .FHDPLX :PUT FULL OR HALF DUPLEX ANSWER IN LOC. 
4594 
4399 :DEVICE DEPENDENT PART OF GETTING INFO FROM P-TABLE 
4397 025746 016137 000002 011450 MOV 2(R1) ,RXCSR :STORE AWAY CSR ADDRESSES 
4599 
4600 025754 16137 00000 911452 MOV 2(R1) ,PARCSR 
4601 0 3768 737 000002 01145 ADD #2,PARCSR 
4602 025 16137 000002 011454 MOV 2(R1) , RXDBUF 
4603 025776 737 000002 011454 ADD #2,RXDBU 
4604 926004 16137 00000 011456 MOV 2(R1), TXCSR 
4605 02601 737 000004 011456 ADD #4, TXCSR 
4606 0260 16137 000002 011460 MOV ech) . TXDBUF 
4607 0 062737 000006 011460 ADD  TXDBUF 
ret 026034 016137 000004 011462 Moy 4(R1), INVEC ;STORE AWAY INPUT INTERRUPT VECTOR 
4610 026042 016137 000004 011464 MOV 4R1) *OUTVEC 
4611 026050 737 000006 011464 ADD VEC :BUILD OUTPUT INTERRUPT VECTOR 
4612 026056 016137 000006 0114 MOV é«at) INTPRI SSTORE AWAY INTERRUPT PRIORITY 
4613 0 6064 gi61 7 000014 0115 MOV 14(R15 ,RNODE SSTORE AWAY THE REMOTE NODE TYPE 
4614 0260 16137 000010 03713 MOV 10(R1) .MPPTP SMULTI-POINT =1 
4615 026100 001004 BNE 10$ Z1F MULTI-POINT GET ADDRESS FROM PTABLE 
461 026102 112737 000001 037065 MOVB «#1, TRIBN SIF POINT=-POINT ADDRESS ALWAYS =1 
461 6110 000403 BR ENDIT ZEXIT 
4618 112 116137 000012 037065 10$: #§ MOVB ART) TRIBN SSTORE AWAY TRIB ADDRESS 
0261 ENDIT: 
1 0261 SETVEC CLKVEC,#CLKINT,#340 :SETUP CLOCK VECTOR 
g 026120 012746 900340 MOV - 
1052 858180 bisze6 006636 MOY UCRKVEC (SP). 
5 $581 012746 000003 MOV (SP 
6 026140 10443 TRAP  CSSVE 
142 062706 000010 ADD 10, 
46 :DEVICE DEPENDENT VECTOR SETUP 
1 SETVEC INVEC,#DVRXI,4PRIOS :SETUP INPUT INTERRUPT VECTOR 
463¢ 12746 40 MOV #PR105,-(SP) 
4633 12746 5 MOV #DVRX1.-(SP) 
13746 01146 MOV INVEC ,-(SP) 
4635 127 MOV #3,-(SP) 
4636 10443 TRAP cSSvEC 
463 062706 000010 ADD 10,SP 
4638 SETVEC OUTVEC,#DVTXI,#PRIOS | ;SETUP OUTPUT INTERRUPT VECTOR 
463 1 746 340 MOV #PR105,-(SP) 
4640 1276 MOV #0VTX1.=(SP) 
4641 13746 011464 MOV TVEC, =( 
464¢ 1276 3 MOV =(SP) 
464 0443 TRAP Svec 
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CZDCLA 11 DATA C LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 113 
cYecea Pat 1DoMARCBS i8e%9 INITIALIZE SECTION 





ret 026216 062706 000010 ADD #10,SP 
rr 4) SETPRI #PRIO0 3SET THE ‘RUN’ PRIORITY TO 0 

464 8 3 012700 000000 MOV #PRI00,RO 
re ry 026226 104441 , TRAP =—s CS$SPRI 
4649 0 EXIT INIT 

4650 02 104432 TRAP = CSEXIT 
4651 02 000002 «WORD 1L10012-. 
1028 

465 

4654 -EVEN 

4655 

rts | Oce st ENDINIT 

465 34 L10012: 


02 
4658 026234 104411 TRAP =e CSINIT 





CZDCLA 11 DATA C LINK TEST 
CZDCLA.P1 1DeMAR CoD iat i$ 

4659 

4660 

4661 

4666 

466 

4664 

4665 

4666 


4667 
4668 026236 
4669 026236 
peak 


ase Ocoee 
4674 026236 104461 


J 9 


MACY11 30A(1052) 23-MAR-82 16:47 PAGE 114 
AUTODROP SECTION 


-SBTTL AUTODROP SECTION 


“THIS » LODE, is EXECUTED tt AFTER THE INITIALIZE core IF 

THE * LAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
SEE IF TMEV WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 
DROPPED FROM TESTING. 


BGNAUTO 
LSAUTO: : 


ENDAUTO 
L10013: 
TRAP 


C$AUTO 


SEQ 113 


CZDCLA weet, 


CZDCLA.P11 


ree) 026240 
4683 026240 


5 O36 40 
4686 026244 
026244 


4695 026262 
026270 
4695 026276 
4696 026304 
4697 026312 
98 026316 
4699 026316 
700 


4701 026320 

4702 026320 

4703 026322 
704 


4708 026324 
4709 026324 
4710 026324 


ATA COMM. LINK 
82 18:19 


104412 
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MACY11 30A(1052) 23-MAR-82 16:47 PAGE 115 
CLEANUP CODING SECTION 


~SBTTL CLEANUP CODING SECTION 


2 THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
;_AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
BGNCLN 
LSCLEAN:: 
CLR ACLKCSR :DISABLE CLOCK 
SETPRI SET PROCESSOR PRIORITY BACK TO a 
TRAP 
CMP WEXIT,KEYWD1 =; "EXIT* COMMAND ? 
BEQ EXITCLN YES BRANCH 
::L0G “C ABORT IN EVENT LOG 
MOV zEVENT TYPE 
MOV OPVAR, TEMP4 :START TIME-OUTS 
MOV PSCNT, TEMP2 PASSES 
MOV ERRCNT,TEMP3 = :ERRORS 
JSR C,LOGS5 :60 LOG IT 
EXITCLN:BRESET [CLEAR ALL BEFORE END 
TRAP 
EXIT CLN 
TRAP 
«WORD 
EVEN 
ENDCLN 
L10014: 
TRAP 


SEQ 114 


#PR107,RO 
CSSPRI 


CSCLEAN 


Ll 9 


CZDCLA | es a. coe sgt i TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 116 
CZDCLA.P11 DROP UNIT SECTION 


4711 -SBTTL DROP UNIT SECTION 


SEQ 115 


4714 THE DROP-UNIT SECTIO! Nepean THE CODING THAT CAUSES A DEVICE 
re a 3 TO NO LONGER BE TEST 


4718 026326 BGNDU 
4719 026326 L$DU:: 


§ 026326 EXIT DU 
026326 
4724 026330 


3 
oOo 
N 


WORD JSJMP 
WORD 110015-2-. 


4727 -EVEN 


rth Oceass ENDDU 
4730 02633 L10015: 
4731 026332 104453 TRAP C$DU 


CZDCLA 
CZDCLA.P 


026340 


rs 11 DATA PATA COMM, LARK TEST 


000167 
000000 


104452 


m9 


MACY11 a 8 2 23-MAR=82 16:47 PAGE 117 
ADD UNIT S 


-SBTTL ADD UNIT SECTION 


THE ADD-UNIT SECTION CONTAINS ANY CODE THF PROGRAMMER WISHES 
; Oe tESY crcre CONJUNCTION WITH THE ADDING OF A UNIT BACK 


BGNAU 


LSAU:: 
EXIT AU 
WORD 
~ WORD 
EVEN 
ENDAU 
L10016 
TRAP 


SEQ 116 


JSJMP 
L10016-2-. 


CSAU 


N 9 


SEQ 117 
CZDCLA DUP=11 DATA COMM. LINK TEST macy ,30A(1052) 23-MAR-82 16:47 PAGE 118 
CZDCLA.P11  19-MAR-82 18:19 TEST 1: SETUP AND MODES OF OPERATION 
475 .SBTTL TEST 1: SETUP AND MODES OF OPERATION 
res 
4760 - TEST TO DETECT FAULTS IN THE DATA COMMUNICATION LINK. THIS TEST WILL 
4761 ; THE PROVIDE COVERAGE NECESSARY TO ISOLATE FAILURES TO THE COMPUTER 
476¢ ; EQUIPMENT, THE COMMUNICATION LINK, OR THE MODEM. 
4764 ey 
4765 
4766 
4767 026342 BGNTST 
4768 026342 T1:: 
4769 
4770 
477 .SBTTL PROGRAM SETUP SECTION 
477s 026342 013777 006632 160252 MOV CLKEN,@CLKCSR ;ENABLE THE CLOCK 
4775 026350 GTXRXB: 
4776 026350 005001 GTRA2: CLR R1 
4777 026352 012737 000001 006642 MOV #1, TIMER1 :SET TIMER TO COUNT 1 TICK 
4778 026 005737 006642 1$: TST TIMER1 :CHECK FOR IT TO BE COUNTED OFF 
4779 026364 001412 BEQ GTRA3 SBRANCH IF CLOCK EXISTS (COUNTED A TICK) 
4780 026366 005301 DEC R1 
4781 026370 001373 BNE 1$ :KEEP CHECKING UNTIL R1 DOES FULL COUNTDWN 
4782 0263 PRINTF #NOCLK [PRINT BAD CLK MSG AND WARN OF HANG IF TIMEOUT 
4783 026372 012746 014234 MOV #NOCLK-(SP) 
4784 026376 012746 000001 MOV #1,-(SP) 
4785 026402 10600 MOV A 
4786 026404 10441 TRAP  CSPNTF 
478 026406 062706 000004 ADD #4,SP 
4789 026412 005737 006566 GTRA3: TST RESFLG :SEE IF HERE AFTER A RESTART. 
4790 026416 001112 BNE GT :BR IF HERE CAUSE OF A RESTART 
4792 : CLEAR COUNTS AND SET UP DEFAULTS 
479% 0264 0 005037 530 GTRAG: CLR TOTCC 3CLEAR TOTAL CHAR. COUNT TEMP. LOC. 
4795 026424 005037 64 CLR TTOTCC + CLEAR TOTAL CHAR. COUNT FOR TX BUFF 
4796 9 64 30 ? CLR cTOTCC + CLEAR TOTAL CHAR. COUNT FOR CMP BUFF 
479 64 12701 15 MOV #PTRTAB,R1 SINIT TRANSMIT MESSAGE POINTER 
4798 926440 10137 4 MOV R1,TXPTR 
4 6444 037 4 CLR RXPTR : ZERO RX POINTER 
re; : 026450 012737 006244 006444 MOV #PTR13,CMPPTR ;INIT COMPARE MESSAGE POINTER 
tB08 6456 012737 5 516 MOV #5 .MSGTYP 7SET UP DEFAULT MSG TYPE (QUICK FOX = ITEP MSG) 
4804 13737 1 MOV MSG5C,CURCC SET UP DEFAULT CHAR COUNT 
5 rn a3 13 ? 1 MOV #TXBUF TCURAD SET UP CURRENT ADD TO START OF TX BUFFER 
12737 1 MOV #CMPBUECCURAD SET UP CURRENT ADD TO START OF CMP BUFFER 


tae beset doesee moy —TXPIRSEPIR SETUP CURRENT Lara TABLE POINTER FOR TXBUF 
3¢2 E AND BUFFER 


737 1 006462 MOV # a UMTOT ‘BUMP TOTAL. Re MESSAGE C 





CZDCLA 


CZDCLA.P 


= 
CD: 


ed ed aed eed ed eed ad 
OWOONAUIL WN 


SSSSEESES 


RERERES 


NOUVUSWN= 


BeRSGSRRGees 


x 
+ 
o 


shee 


0267 
026770 
026774 


7004 


7010 


oooo 
paar Soar =r} 
WWW 


NON NNN NN 
NNN 


1 


ooo 
par poner Por 


33 
SN 


105037 
105037 


104443 
06 


2 
14 
1157 
17777 


000001 


ew ATA _COMM. LINK 
1 1 “62 18:19 


TEST MACY11 30A(1052) 
PROGRAM 


GTRAS: 


006572 1$: 


- SBTTL 
GETCL: 


B 10 


23-MAR=82 16:47 PAGE 119 
SETUP SECTION 
MOV CMPPTR,CPTR zSET UP START OF COMPARE POINTER TABLE 
MOV CCURAD,CURADD :SET UP CURRENT ADDR. TO START OF CMPBUF 
MOV #5 MSGTYP 
MOV MSG5C,CURCC 
JSR PC ,BLDBUF zPUT DEFAULT MESSAGE INTO CMPBUF 
MOV #1.CMPTOT : THE COMP MESG COUNT 
MOV #ACT MODTYP SSET DEFAULT MODE= ACTIV 
CLR = MLTYP SET DEFAULT MAINTENANCE Li 
MOV #1,RPASS :SET UP DEFAULT ‘RUN PASS’ COUNT TO 1 
MOV #2.PARAM [SET UP PROG. PARAMETERS = DATACHECKING ENABLED 
; OPERATOR STATUS MSGS. PRINT OFF 
PRINTF #HLPO 
MOV #HLPO,-(SP) 
MOV #1,-(SP) 
MOV . 
TRAP  CS$PNTF 
ADD #4,SP 
SETVEC INVEC,#DVRXI,#PRIOS ;DEFAULT NON=PROTOCOL RX INTERRUPT ROUTINE 
MOV #PRI05,-(SP) 
MOV #DVRXI,-(SP) 
MOV INVEC,-(SP) 
MOV #3,-(SP) 
TRAP CS$SVEC 
ADD #10,SP 
BIC #PRORUN! ABORT , PARAM ZINIT PROTOCOL VARIABLES 
MOV MODTYP, DEV1 
MOV MLTYP DEV 
MOV RPASS , DEV 
MOV PARAM. DEV4 
JSR PC, SHWOP :PRINT TO OPERATOR THE CURRENT MODE...... 
MANUAL zSEE IF MANUAL INTERVENTION ALLOWED als 
BCOMPLETE GETCL ; BR IF YES (UAM=0 AND NOT CHAINED) aati 
TST RPASS :SEE IF THIS IS FIRST 'DCLT pass” 
BNE $ : BR IF NOT COMPLE A 
EXIT TST : IF DONE 1 PASS IN UNATTENDED MODE = EXIT 
TRAP — CSEXIT 
«WORD 110017-. 
MOV #TTL MLTYP ;SET UP DEFAULT FOR UNATTENDED, MODE 
JMP GTR : "'R M=ACT/LO=1/PAS=1/NOST/CH" AND RUN 
COMMAND LINE FETCH & INTERPRETATION SECTION 
cLRB p$cpap :CLEAR CMD LINE PARSING ERROR FLAGS 
GMANID CLISPM,CMDBUF .A,-1,1,72..NO :GET A COMMAND LINE FROM PR. 
TRAP 


BR 

eWORD CMDBUF 
eWORD TSCODE 
eWORD CLISPM 
WORD a 

eWORD TSLOLIM 


SEQ 118 
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000004 
026764 
003146 


011633 
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026764 
003010 
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6764 
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TEST 


ae 


MACY11 30A(1052) 
COMMAND L 


1$: 


10$: 


11$: 


12$: 


JMP 
TSTB 
BEQ 
PRINTF 


BLT 
PRINTF 


C 10 


23-MAR-82 16:47 PAGE 120 
INE FETCH & INTERPRETATION SECTION 


#CMDBUF ,PSBUFA 
ACLITRE ,PSTREE 
#CLIACT ,PSACT 


QUA 
PC ,PSTRV 
PSGDBD 


ACLIERM 


GETCL 
PSNNUF 


10$ 
#CLINUF 


GETCL 

KEYWD1 ,#SETET 
KEYWD1 ,#HLP 
REYKD1 APRNT 
REYUD1 ,#RUN 
11$ 


GTRO 

KEYWD1 ,#DMPS 
PC,DUMPSR 
GETCL 

KEYWD1 ,#EXIT 


#1,DCLFLG 
TST 


KEYWD1,#CLEAR 
KEYWD1,#SHOW 
GETCL 

KEYWOI »#SETEXP 
TTOTCC, TOTCC 

TOTCC ,ABUFLIM 


#ASGTRN , #BUF EX 


«WORD TSHILIM 
10000$: 


CLEAR QUALIFIER FLAG LOCATION 
3GO PARSE COMMAND LINE 
3SEE IF PARSED OK OR AN ERROR 


MOV #CLIERM,=(SP) 
#1,-(SPS 


mov SP.RO 
TRAP  CS$PNTF 
ADD #4,SP 


3SEE IF INCOMPLETE COMMAND TYPED 


MOV #CLINUF ,-(SP) 
mB 
TRAP  CS$PNTF 

ADD #4,SP 


3WAS''SET EXPECT=TRANSMIT’* TYPED ? 
3 YES BRANCH 
3SEE_IF HELP WAS TYPED 


;GO GET CMD 


AGAIN 7 YES 


*SEE IF PRINT WAS TYPE 


D 
: GO GET CMD AGAIN IF YES 

SEE IF RUN WAS TYPED 

BR IF NO 

START EXEC. IF YES 

SEE IF DUMP WAS TYPED 

BR IF NO 

ELSE, DUMP PART OF 
¢ THEN, RETURN TO GET ANOTHER CMD. 
NO,BRANCH 

SET CLEANUP FLAG 

GO BACK TO INIT 

TRAP  CSEXIT 
«WORD 110017-. 

SEE IF CLEAR WAS TYPED 

IF YES, BACK TO GET ANOTHER CMD. 
SEE IF SHOW WAS TYPED 

IF YES, BACK TO GET ANOTHER CMD. 
SEE IF SET EXPECTED 

BR IF YES (A SETEXP WAS TYPED) 

SEE IF BUFFER ALREADY FULL 

BR IF NOT FULL (BUFLIM # OF CHARS.) 

ELSE TELL OPR. AND DON’T BUILD MSG. 


SEQ 119 





1 
en SEQ 120 


CZDCLA DUP=11 DATA COMM, LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 121 
CZDCLA.P11 1DAMAR CBO 18:19 COMMAND LINE FETCH & INTERPRETATION SECTION 
4926 12746 01435 MOV #BUFEX,-(SP) 
4925 12746 01437 MOV WASGTRN -(SP) 
49 7316 012746 00000 MOV ae = (SPS 
49 1 MOV RO 
49. 4 10441 TRAP SCENT 
49 000006 ADD SP 
49 0 1 6764 JMP GETCL ; THEN GO GET A NEW COMMAND 
4931 5737 the 15$: TST TTOTCC TIF FIRST SET’ THEN GET RID OF DEFAULT 
49 9 001002 BNE 
49 7344 005°? 064 LR TXMTOT 
49 9 7350 127 7 (©1150 006442 68: MOV #PTRTAB, TXPTR zGET POSITION OF END OF TX LIST 
4935 7356 13701 P 1666 V TXMTOT,R1 
4936 0 020127 9001 R1,AMSGLIM :SEE IF MSG COUNT EXCEEDED. 
4937 027366 002414 BLT 7 NO 
4938 027370 PRINTF #MSGTRN,#TABEX t ELSE TELL OPR. AND DON'T BUILD MSG. 
4939 027370 012746 014315 MOV #TABEX,-<SP) 
4940 9 4 012746 014373 MOV #MSGTRN,-(SP) 
4941 027400 012746 $0002 MOV #2,-(SP5 
4942 027404 01 MOV SP,RO 
4943 027406 10441 TRAP  CSPNTF 
4944 027410 962706 000006 AD #6,SP 
4945 027414 000137 026764 JMP GETCL ; THEN GO GET A NEW COMMAND. 
4946 027420 006301 17$: ASL R1 :# OF MSGS *4 = NEXT FREE PTR BLOCK 
4947 027422 006301 ASL R1 
4948 027424 060137 00644 ADD R1,TXPTR 
4949 0274 013737 006442 006524 MOV TXPTR, CPTR ;SETUP CHAR. COUNT, CURRENT ADDR, & PTR 
4950 027436 013737 006466 006526 MOV TCURAD , CURADD 
4951 027444 004737 023266 JSR pC -ADDCC :ADD IN CHAR. COUNT AND CHECK TOTAL 
4952 027450 004737 023 JSR BLDBUF [G0 BUILD MESSAGE IN BUFFER AND PTRS. 
4953 027454 013737 524 006442 MOV CBRE TXPTR 
4954 02 013737 006530 006464 MOV TOTCC, TTOTCC ;UPDATE CHAR. COUNT, CURR ADDR, & PTR 
4955 02 013737 006526 006466 MOV CURADD, TCURAD 
4956 02747 005237 62 INC TXMTOT 
4957 027502 005337 003014 DEC :DEC THE COPY COUNT 
4958 027506 001270 BNE 
4999 027510 000137 026764 JMP GETCL 
4961 0 7514 013737 006450 006530 2S: MOV CTOTCC, TOTCC ;SETUP CHAR. COUNT CURR. ADDR. & PTR 
4962 75 023727 006530 001000 CMP TOTCC,#BUFLIM :SEE IF BUFFER ALREAD 
4 0275 2414 BLT IF NOT FULL CGUFLIN. i OF CHARS.) 
4964 0 75 PRINTF #MSGTRN,#BUFEX + ELSE TELL OPRE AND DON'T BUILD MSG. 
4965 027532 012746 014355 MOV EX,-(SP) 
4966 9 75 12746 014373 MOV #MSGTRN,-(SP) 
49% 7542 0127 2 MOV (SPS 
4 75. 1 MOV RO 
4969 027550 10441 CSPNTF 
49 755 900006 ADD »SP 
4971 1 6 JMP GETCL ; THEN GO GET A 
49 0 37 7 ary 0 16$: Ist TOTCC TIF FIRST SET’ THEN GET RID OF DEFAULT 
4974 7370 ad 006446 - CLR CMPTOT 
4976 7576 244 006444 MOV #-TR13,CMPPTR zINIT COMPARE MESSAGE POINTER 
43 7608 03 18704 ‘3 CRP See Otec IM SEE IF MSG COUNT EXCEEDED 
4979 02761 15 BLT 18$ : BR IF NO 
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MACY11 30A(1052) Se 16:47 PAGE 122 
COMMAND LINE FETCH & INTERPRETATION SECTION 


PRINTF #MSGTRN,#TABEX 


18$: 


PC, 

PC -BLDBUF 
CPTR, CMPPTR 
CMPTOT 


CURADD, CCURAD 
roree eroree 
QUAL VL 


GETCL 





: ELSE TELL OPR. AND DON'T BUILD MSG. 
MOV #TABEX,=(SP) 
MOV WmSGTRN -(SP) 
MOV We ah (SPS 


cepa TF 
: THEN GO GET A NEW COMMAND. 
F MSGS *4 = NEXT FREE PTR BLOCK 


sADD IN XHAR. COUNT AND CHECK TOTAL 


;UPDATE CHAR. COUNT, CURR ADDRR. & PTR 
yIF COPY WAS GIVEN, PUT MSG IN BUFF 
G0 BACK UNTIL GET A “RUN’ 





F 10 


DUP=11 DATA - LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 123 
cHoCLALP Ti 1SSMARSBD 18:19 COMMAND LINE FETCH & INTERPRETATION SECTION 


7 





008 .SBTTL ACTION TABLE AND ROUTINES ." 
5 ; USER MUST CLEAR/SET PS$GDBD IF USE "‘CLIBIF’’ IN CONNECTION WITH ACTION 
2010 antes Sco R2 WILL HOLD ACTION CODE FROM PARSING (CLI) NODE 
018 arr 00630 ASL R2 :MULTIPLY ACTION CODE BY 2 
501 776, 01620 027756 MOV 10$(R2) ,R2 SOFFSET VALUE 
5014 0277 02 027756 ADD #10$,R2 [ADD BASE VALUE 
5015 027752 00471 JSR PC, (R2) :G0 DO ACTION 
2016 027754 00020 RTS PC SRETURN TO TRVACT: 
2018 :BRIEF DESCRIPTION OF ACTONS TAKEN 
5019 027756 000150 10$:  .WORD ACTNUL-10$ NUL 
5020 027760 00015 “WORD  ACTCLR-10$ :CLEAR 
5021 027762 00016 “WORD “ACTSHO-10$ : 
3028 027764 0015 “WORD ACTCHK-10$ CHECK 
037766 262 “WORD ACTRUN-10$ RUN 
5024 0 17, “WORD ACTHLP=10$ SHELP 
5 9 7772 900506 “WORD ACTCSE-10$ SCLEAR OR SHOW EXPECT 
6 027774 0004 “WORD ACTCST-10$ [CLEAR OR SHOW TRANSMIT 
7 027776 9007¢ “WORD ACTSTE-10$ :SET EXPECT 
5028 030000 0007 “WORD ACTSTT-10$ :SET TRANSMIT 
030002 00075 “WORD ACTSZE-10$ SIZE 
5030 030004 000760 “WORD ACTCOP-10$ COPY 
5031 030006 000770 “WORD ACTNUM-10$ [NUMERIC VALUE FOR SIZE OR COPY 
5032 030010 001062 “WORD ACTOPM-10$ [QUOTED MESSAGE FROM USER 
5033 030012 001556 “WORD ACTSTS-10$ : STATUS 
5034 030014 001102 “WORD ACTEQO-10$ [END OF QUOTED MESSAGE FROM USER 
5035 030016 0011 “WORD ACTMSO-10$ : AS DA 
5036 030020 001170 “WORD ACTMS1-10$ SZEROS AS DATA 
5037 030022 001 “WORD ACTMS2-10$ [1ALT AS DA 
5038 030024 001210 “WORD ACTMS3-10$ SOACT AS DATA 
5039 030026 001 20 “WORD ACTMS4-1 ITEP 
5040 0300 001 “WORD ACTMSS=1 [CCITT AS DATA 
5041 030032 001246 “WORD ACTMS6-1 [ALPHA AS DATA 
3042 030034 001334 “WORD ACTATV=-1 TACTIVE MODE 
504 030036 001344 “WORD ACTPAS=-1 :PASSIVE MODE 
5044 001364 “WORD ACTREC-1 SRECEIVE MODE 
5045 030042 001372 “WORD ACTLIS-1 [LISTEN MODE 
30044 90140 “WORD ACTDLL-10$ [DOWNLINE L 
Ha ks 030046 00141 “WORD ACTTRA~108 : TRANSMIT MODE 
5048 030050 00142 ;WORD ACTTAL=-1 [TALK MODE 
5049 3005¢ 0014 ;WORD ACT :NO IE /NOCHECK 
5050 1 “WORD ACTECH=1 : 
1 0300 001564 “WORD ACTCRC-1 CRC 
3 0 1 “WORD ACTPRO-1 *PROTOCOL 
5 0016 “WORD  ACTRPS-1 : STATUS 
54 (0 00164 “WORD ACTMOP=1 SSATELLITE IN MAINTENANCE LOOP MODE 
3059 9 165 “WORD ACTTLP=1 + INTERNALTTL 
36 300 1 “WORD ACTCLP=1 3C 
057 0 16 “WORD ACTLLP=1 [LOCAL 
8 03007 170 “WORD ACTRLP=1 SREMOTE MODEM L 
59 0 76 14 “WORD ACTNUF=1 *MORE COMMAND NEEDED 
5060 0301 114 “WORD ACTBCR-10$ ‘BAD CHARACTER IN OPERATOR MESSAGE 
3061 030102 000656 “WORD ACTDMS-10$ [DUMP MEMORY START ADDRESS 
030104 06 ;WORD ACTDME-1 [DUMP MEMORY END ADDRESS 


G 10 


SEQ 123 

CZDCLA_DUP-11 BS Link TEST MACY11 Seat eee 23-MAR-82 $3 : PAGE 124 
CZDCLA.P11 18: ON TABLE AND ROUTI 

5063 1 ~WORD ACTDMOQ-1 3DUMP WORD 

5064 11 oe i -WORD ACTPRT-10$ PRINT 

5065 11 7 -WORD ACTMOS-10$ ;MODEM STATUS 

11 eWORD ACTEXT-10$ EXIT ROUTINE 
506 sai 009373 -WORD ACTSEX-10$ 7SET EX=TR 














H 10 


CZDCLA_DUP=11 DATA com LINK TEST MACY11 Spat 1022? 23-MAR-82 my 47 PAGE 125 
CZDCLA.P11 1 18:19 TABLE AND ROUTINES 


SEQ 124 


9 
2088 930120 11 177777 003146 ACTNUF: MOVB  #-1,PSNNUF :SET FLAG TO SAY NEED MORE OF COMMAND 
2071 et ACTNUL: RTS PC SRETURN TO PARSER 
208 030130 012737 000001 003010 ACTCLR: MOV #CLEAR,KEYWD1 SET LOC TO SAY A CLEAR WAS TYPED 
207% 0301 207 RTS PC 
507 930140 12737 000002 003010 ACTSHO: MOV #SHOW,KEYWD1 ;SET LOC. TO SAY A SHOW WAS TYPED 
2077 030146 207 RTS PC 
5079 030150 012702 003016 ACTHLP: MOV #HLPTAB,R2 ;SETUP R2 AS A POINTER TO HELP MSG TABLE 
5080 030154 1$: PRINTF #HLPF,(R2)+ SPRINT HELP INFORMATION MESSAGES 
5081 030154 01 246 MOV (R2)+,=(SP) 
3082 0 136 012746 012271 MOV #HLPF .=(SP) 
0301 1 746 000002 MOV a2. =(SP) 
5084 0301 1 MOV 
5085 030170 10441 TRAP caput 
086 030172 062706 000006 ADD 
5087 030176 020227 003036 CMP R2,HHLPEND :SEE IF ALL INFO. PRINTED YET 
5088 0 1 BNE 1$ SIF NO KEEP PRINTING 
5089 0 12737 000005 003010 MOV #HLP ,.KEYWD1 *SET LOC. TO SAY A HELP WAS TYPED 
2090 030212 207 RTS PC 
2098 030214 012737 000057 003010 ACTEXT: MOV #EXIT, KEYWD1 EXIT COMMAND WAS INPUT 
2093 030222 207 RTS PC [RETURN 
5095 030224 012737 000055 003010 ACTPRT: MOV #PRNT,KEYWD1  ;SET LOC. TO SAY A HELP WAS TYPED 
509% 030232 004737 020612 JSR PC REPORT *CALL ROUTINE TO PRINT EVENT LOG AND BASE TABLE 
2097 030236 000207 RTS PC 
5099 030240 012737 900004 003010 ACTRUN: MOV #RUN.KEYUDI :SET RUN FLAG 
5100 030246 112737 177777 003146 MOVB  #~1, PSNNUF [SET FLAG TO SAY NEED MORE OF COMMAND 
5101 030254 012737 000001 006600 MOV #1 ,RPASS :SET DEFAULT RUN PASS’ TO 1 
3102 30262 000207 RTS PC 
5104 030 01273 006244 006444 ACTCSE: MOV #PTR13,CMPPTR INIT COMPARE MESSAGE POINTER 
2105 30272 13909 006444 MOV CMPPTR.R1 
3109 030276 013702 46 MOV CMPTOT,R2 
5108 030302 105037 0031 CLRB = PSNNUF :FLAG THAT HAVE VALID COMMAND AT THIS PT. 
5109 030306 0 $727 003010 000002 CMP KEYWD1,#SHOW 3SEE IF A CLEAR OR SHOW WAS TYPED 
aii 30316 % 1 006446 Aov ATS ; CLEAR COMPARE MESSAGE COUNT, CHAR. COUNT 
siie 30324 $h37 006450 CLR trovee t AND RESET POINTER 
a4 030330 or 7 44 006444 MOV #PTR13,CMPPTR ; INIT COMPARE MESSAGE POINTER 
115 030336 013737 44 006524 MOV CMPPTR.CPTR *SET UP TO FILL IN DEFAULT MESSAGE 
116 030344 187 1 15 MOV #CMPBUF .R1 
11 30 50 010137 5 MOV R1,CCURAD 
$119 030354 000431 BR ACTCLB 
1 3 12701 15 ACTCST: MOV #PTRTAB,R 
5131 3050 018700 MOV TXMTOT, 3" 
1 g 5 14 CLRB = PSNNUF :FLAG THAT HAVE VALID COMMAND AT THIS PT. 
318 3057 3727 10 000002 CMP KEYWD1,#SHOW § :SEE IF A CLEAR OR SHOW WAS TYPED 
124 1437 BEQ ACTSHW ‘BR IF A SHOW WAS TYPED 


I 10 


SEQ 125 
CZDCLA 11_DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 126 
1SSMARCBD 18:19 ACTION TINES 


CZDCLA.P1 TABLE AND ROU 
125 12737 1 006462 MOV #1, TXMTOT :CLEAR TRANSMIT MESSAGE COUNT, CHAR. COUNT 
1 1 7 64 CLR TTOTCC : AND RESET POINTER 
1 14 012737 150 006442 MOV #PTRTAB, TXPTR 
128 13737 42 006524 MOV TXPTR,CPTR 
31 1 701 15 MOV #TXBUF RI 
010137 006466 MOV R1, TCURAD 
21 030440 01 2 1000 ACTCLB: MOV #BUFLIM,R2 
5133 0 101 2 MOV R1,CURADD ;SET UP TO PUT DEFAULT MSG IN LIST AFTER 033°S 
5134 030450 012737 006516 MOV #5.MSGTYP 
31 5 030456 013737 002162 006520 MOV MSG5C,CURCC 
13% 0 105021 1$: CLRB 3s (R1)4 sFILL EXPT OR TRAN BUFFER WITH O°S IF A CLEAR 
5137 030466 005 2 DEC R2 [DO "BUFLIM’’ NUMBER OF BYTE LOCATIONS 
5138 930470 90137 BNE 1$ 
5139 03047 37 023364 JSR PC ,BLDBUF s“"CLEAR'’ REALLY MEANS TO PUT DEFAULT MSG IN 
3140 030476 207 RTS PC [WHEN DONE, RETURN TO PARSER 
514 
2143 930500 0127 5 003072 ACTSHW: MOV #SHTAB,RS 
5144 030504 122571 000000 5$: c (R5)+,a(R1) :LOOK AT FIRST BYTE OF MSG TO DECIPHER TYPE 
5145 030510 001404 BEQ 
3146 030512 020527 003101 CMP R5,ASHTEND :SEE IF LOOKED AT ALL OF DEFAULTS YET 
5147 030516 001372 BNE 5$ 
5148 030520 005205 INC RS :MUST BE OPR. SPEC'D THEN 
5149 030522 162705 003073 6S: SUB #SHTAB+1 RS 
5150 030526 00630 ASL R5 
5151 030530 016137 000002 006534 MOV 2(R1), TEMP 
2152 030536 PRINTF #SHMSG,SHTYTB(RS). TEMP ;PRINT MSG SIZE & TYPE 
5153 030536 013746 006534 TEMP, -(SP) 
5154 030542 016546 003052 MOV SHTYTB(RS) ,=(SP) 
5155 30546 12746 013516 MOV #SHMSG -(SP) 
5156 030552 012746 000003 MOV #3,-(SP) 
5157 556 010600 MOV P.RO 
5158 030560 104417 TRAP  CSPNTF 
5159 030562 706 000010 AD #10,SP 
set 03056 soe 000004 ADD #4 .R1 ;BUMP R1 TO NEXT SET OF POINTERS 
162 03057 134 BNE A 
S168 576 13 7 00657 007704 MOV MODTYP, DEV1 
164 030604 013737 57 77 MOV yP,b : 
5165 30612 13 7 771 MOV - 
3109 H eu 023714 nah re i SHOW THE OPERATOR THE CURRENT MODE ALSO 
i: ake 207 RTS PC” F 
199 30634 013737 003142 006510 ACTDMS: MOV PSNUM, STADD :SETUP STARTING ADDRESS FOR DUMP 
5171 03064 5037 51 CLR BYTBIT *SET DEFAULT OF WORD DUMP 
17 0 12737 52 003010 MOV #DMPS,KEYWD1 FLAG THAT A DUMP WAS TYPED 
173 306 03 BR ACTDME 
175 030656 012737 177777 006514 ACTDMQ: MOV #-1,BYTBIT :SET DUMP FLAG TO ‘DUMP-WORD"’ 
3176 13737 003142 006512 ACTDME: MOV PSNUM, ENADD SETUP END ADDRESS FOR DUMP (=START IF NO "EEE" 
21 30672 105037 003146 ACTDMX: CLRB = PSNNUF SCLEAR NOT-ENOUGH FLAG, ‘DUMP N-N/B" IS VALID 
3178 30676 000207 RTS PC 


CZDCLA_DUP=11 DATA COMM. LINK 
CZDCLA.P11 19SMAR-B2. 18219 
sm 
1 700 012737 000010 
sis SRE SR 
218s 030710 012737 000011 
186 ! 716 012737 000001 
1 4 724 207 
5189 030726 012737 000012 
3130 ae 207 
2136 039736 012737 000013 
3137 030744 207 
5195 030746 023727 003012 
gine 30754 oni 
5197 030756 005737 003142 
5198 030762 001014 
5199 030764 
5200 030764 012746 012072 
5201 030 012746 000001 
2508 030774 01 
5203 030776 10441 
5204 031000 065706 000004 
5205 031004 112737 177777 
5206 031012 000411 
5207 031014 013737 003142 
5208 031022 se 5 
5209 031024 013737 003142 
5210 031032 005237 003014 
asi 031036 000522 
513 031040 012737 7 
25\¢ 031046 010437 006 
5215 031052 005237 006534 
2518 031056 000207 
5218 031060 01040 
5219 031062 1637 534 
3220 031 10 520 
Ss) Heite fit Sis 
Se wlig fae Ss 
Se aie Be 
35 $ 31114 73 
3 3116 
5 138 12746 
5 12 1274 
1¢6 1 
' 10441 
F 
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003010 
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003012 


000012 


003147 
006520 
003014 


006516 


MACY11 30A(1052 
ACTION 


ACTSTE: MOV 
BR 
ACTSTT: MOV 
ACTSTX: MOV 
RTS 
ACTSZE: MOV 
RTS 
ACTCOP: MOV 
RTS 
ACTNUM: CMP 
BNE 
TST 
BNE 
PRINTF 
MOVB 
BR 
3$: MOV 
BR 
1$: MOV 
INC 
2$: BR 
ACTOPM: MOV 
MOV 
INC 
RTS 
ACTEQO: MOV 
SUB 
MOV 
MOV 
MOV 
MOV 
1$: MOVB 
DEC 
BNE 
BR 
ACTBCR: PRINTF 
RTS 





) 23-MAR-82 16:47 PAGE 127 
TABLE AND ROUTINES 


#SETEXP ,KEYWD1 
ACTSTX 
#SETTRN,KEYWD1 
#1, QUALVL 
#SIZE ,QUALFG 
PC 


#QCOPY ,QUALFG 
PC 


QUALFG,#SIZE 
1$ 


PSNUM 
3$ 
#CLISEO 


#-1,PS$GDBD 
* remees 


PSNUM, QUALVL 
QUAL VL 


ACTMEX 
#7 ,MSGTYP 
EMP 


#OPBUF ,R 
£5179. tkade 


1 
ACTMEX 
#CLIBCR 


PC 


3SET UP DEFAULT COPY TO 1 (/COPY=0) 


sSEE IF A SIZE OR COPY TYPED 

3BR_IF IT WAS A COPY 

sCHECK TO BE SURE DIDN'T TRY SIZE=0 

: BR IF NO 
MOV 
MOV 
MOV 
TRAP 
ADD 


3SEE ERROR-IN-CMD FLAG 


zIF A SIZE LOAD CURCC WITH BYTE COUNT 


;1F A COPY, LOAD COPY COUNT 


ZINCREMENT SO FIRST DEC MAKES IT REAL # 


sKEEP TRACK OF START OF QUOTED TEXT 


: SO CAN CALC OPCNT AT END OF QUOTES 


sCALC BYTE COUNT FOR QUOTED TEXT 


COPY QUOTED TEXT TO OPBUF 


3BAD CHAR. IN OPR. QUOTED STRING 


#CLIBCR 
#1,-( 


SEQ 126 


#CLISEO,-(SP) 
#1, -(SPS 


-(SP) 
SPs 


SP-RO 
CSPNTF 
#4,SP 


CZDCLA_DUP=11 DATA COMM. LINK 
CZDCLA.P11 19-MAR-82 is: 19 
5 
3037 1140 005037 006516 
2 1144 ; 
3239 1136 737 000001 
5240 03115 1 
5241 1156 737 000002 
524 1164 5 
524 1196 012737 000003 
5244 031174 $1 
5245 ? 1176 012737 000004 
5 r¢ | 1204 13 
5247 031206 Ig 000005 
5248 os! 14 013737 002162 
Se Sse Sse 
252) 031983 0137 7 002164 
5253 031240 012737 000100 
aS28 031246 000416 
252 os 50 022737 000010 
5257 031256 001404 
2528 031500 112737 000001 
5260 031270 004737 023510 
5261 031274 012737 000060 
2506 031302 000400 
5264 031304 105037 003146 
o50? 031310 000207 


TEST 


006516 
006516 
006516 
006516 


006516 
006520 


06516 
520 


006520 


003010 
003147 


003010 


K 10 


MACY11 Seat 1022? 23-MAR-82 16:47 PAGE 128 


ACTMSO: 
ACTMS1: 
ACTMS2: 
ACTMS3: 
ACTMS4: 
ACTMSS: 


ACTMS6: 


ACTME1: 


ACTSEX: 


10$: 


ACTMEX: 
R 


ON TABLE AND ROUTINES 


MSGTYP 
ACTME1 
#1 MSGTYP 
ACTME 
#2,MSGTYP 
AC TIME! 
#3,MSGTYP 
#4, .MSGTYP 
A TME1 
-MSGTYP 
meee CURCC 
ACTMEX 


#6 .MSGTYP 
MSG6C ,CURCC 


#64. ,CURCC 
ACTMEX 


#SETEXP. KEYUD! 
#1,P$GDBD 
ACTMEX 

PC FACSIMILE 
#SETET KEYUDT 


PSNNUF 
PC 


3SET MESSAGE TYPE = ALL ONES 
3SET MESSAGE TYPE = ONES & ZEROS 
3SET MESSAGE TYPE = ZEROS & ONES 
sSET MESSAGE TYPE = CCITT 


sSET MESS TYPE = QUICK FOX 
;SETUP DEFAULT SIZE FOR THIS TYPE 


SET MESSAGE TYPE_= ALPHA/NUM 
;SETUP DEFAULT SIZE FOR THIS TYPE 


sSETUP DEFAULT SIZE FOR MSGO-4 
sBRANCH TO EXIT 


DID WE GET HERE FROM ‘’SET E="‘COMMAND? 


° H 
SSET ERROR FLAG 


360 EXIT SUBROUTINE 

760 COPY TRANSMIT LIST TO 7 LIST 
3SET FLAG TO BE USED IN T1: 

EXIT SUBROUTINE 


3CLEAR NOT-ENOUGH FLAG 


SEQ 127 


L 10 


SEQ 128 
CZDCLA DUP-11, ATA COMM, LINK TEST MACY11 30A(1052) 23-MAR-82 16: 47 PAGE 129 
CZDCLA.P11 =82 18:19 ON TABLE AND ROUTINES 
5267 31 000003 006570 ACTATV: MOV WACT ,MODTYP :MODE = ACTIVE 
2 a a tte BR ACTMOX 
5270 iY 2737 2 006570 ACTPAS: MOV #PAS ,MODTYP MODE, = PASSIVE 
5271 O31 050 ie CLRB  =—- PSNNUF ‘CLEAR NOT-ENOUGH FLAG 
5 2 0 1 005037 00657 CLR MLTYP :CLEAR MAINT LOOP TYPE 
ast? 9 RTS PC 
3675 031342 005037 006570 ACTREC: CLR MODTYP :MODE = RECEIVE 
3676 031346 000417 BR ACTM2X 
5278 031350 012737 000006 006570 ACTLIS: MOV #LIS MODTYP :MODE = LISTEN 
2879 031356 000413 BR ACTM2X 
5281 031360 012737 000004 006570 ACTDLL: MOV #D0W,MODTYP :MODE = DOWNLINE LOAD 
2282 031366 000407 BR ACTMOX 
5284 031370 012737 000001 006570 ACTTRA: MOV #TRA,MODTYP :MODE = TRANSMIT 
3285 031376 000403 BR ACTMeX 
687 031400 012737 000005 006570 ACTTAL: MOV #TAL .MODTYP :MODE = TALK 
5289 031406 042737 000004 006576 ACTM2X: BIC #ECHOB, PARAM :DISABLE /ECHO CALL BUT PASSIVE MODE) 
5290 031414 105037 003146 CLRB = P$NNUF [CLEAR NOT-ENOUGH FLAG 
5291 031420 005037 006572 CLR MLTYP :CLEAR MAINT LOOP TYPE 
5292 031424 000207 RTS PC 


CZDCLA 


CZDCLA.P 


3595 
3597 


5 


S33 


SRE 


SESs 


epepepe pepe pope pe po py 
ed ed ed ed ceed eed ed ced ceed eed 
=—OVWONAULWN =O 


ROR 


PUPVDUPV SUSU SUSI SUSI SISISIST SISTI SIT 
nm 


bet 
ithe} 
Wes 


ie 
wi 


534 


SEStEE 


| i DATA COMM. LINK TEST 
1 19-MAR=82 18:19 


3148 


031524 
031526 
031532 


031534 
031540 


031542 


012737 
000207 


031546 000405 


031550 
031554 


031556 
031562 
031566 
031574 

31576 

31602 
031606 


031610 
031616 


00657 
00301 


003142 


000005 
000001 
000002 
000003 
000004 
000003 
177777 


003012 


003012 


006576 
006570 


003147 
006576 


003012 


006600 


006572 
006572 
006572 
006572 
006572 
006570 
003147 


Mm 10 


SEQ 129 
MACY11 30A(1052) 23-MAR=82 16:47 PAGE 130 
ACTION TABLE AND ROUTINES 
ACTNO: MOV #NO, QUALFG 
RTS PC 
ACTECH: CMP #NO, QUALFG 
BEQ 1$ 
BIS #ECHOB, PARAM 
CMP #PAS ,MODTYP :BE SURE IN PASSIVE MODE IF 
BEQ SIF TRYING TO SET 
PRINTF #CLINPS 
MOV #CLINPS,=(SP) 
MOV #1,-(SP) 
MOV P-RO 
TRAP  CSPNTF 
ADD #4,SP 
MO #~1,PS$GDBD 
1$: BIC #ECHOB, PARAM Ss 
2$: CLR QUALFG :CLEAR "NO" OUT OF QUALIFIER FLAG 
BR ACTLXX 
ACTCHK: MOV #DATCKB,R1 :SET DATA CHECK BIT 
BR ACTOFG 
ACTSTS: MOV #STATB,RI1 :SET THE STATUS BIT 
BR ACTOFG 
ACTCRC: MOV #CRCB,R1 :SET THE CRC BIT 
BR ACTOFG 
ACTMOS: MOV #MOCHK ,R1 ;SET THE MODEM BIT 
BR ACTOFG 
ACTPRO: MOV #PROTOB,R1 ;SET THE PROTOCOL BIT 
ACTOFG: BIS R1,PARAM 
CMP #NO, QUALFG 
BNE 1$ 
BIC R1,PARAM sabe! 
1$: CLR QUALFG ZCLEAR "NO" OUT OF QUALIFIER FLAG 
BR ACTLXX 
ACTRPS: MOV PSNUM,RPASS :GET NUMBER OF "RUN PASSES"’ 
BR ACTLXX 
ACTMOP: MOV #5,MLTYP 
BR ACTLPX 
ACTTLP: MOV #1,MLTYP 
BR ACTLPAX 
ACTCLP: MOV #2,MLTYP 
BR ACTLPX 
ACTLLP: MOV #3,MLTYP 
BR ACTLPX 
ACTRLP: MOV 44 .MLTYP 
ACTLPX: CMP #ACT ,MODTYP :BE SURE IN ACTIVE IF TRYING TO SET LOOP 
BEQ CTLKX : BR IF IN ACTIVE 
MO #~1,P$GDBD 


CZDCLA 


CZDCLA.P1 


: 


1 


11_DATA_ COMM 
-82 


. LINK TEST 
iettd 
006572 
011720 
000001 


00004 
003146 


N 10 


MACY11 Spat teeet 23-MAR~82 16:47 PAGE 131 
ON TABLE AND ROUTINES 


SEQ 130 


CLEAR ANY LOOP TYPE THAT MAY HAVE GOT SET 


MOV #CLIBDL,-(SP) 
MOV #1.=(SP5 


CLR 
PRINTF PELIBDL 


MOV SP;RO 
TRAP CSPNTF 
ADD #4,SP 


ACTLXX: ce * gamed CLEAR NOT-ENOUGH FLAG 





CZDCLA_DUP=-11 DATA COMM. L 
CZDCLA.P11 19-MAR-82 18: 


pt oe 
R 


AAAI 
Eo 


gesees 
Soo 


SFUSFISISISISIS 
RESREREE & 
WNANTON 

~ 

oa 


bya yt art at 
S3SS 
CoOOoOOoooOooooooOoo 
Beaeaaas 
SSaNae 
seee 
SEWN 
WSs5 


eine 

Sean 
S38 
ES 
4s 


5376 


Ore tte 


a 


TEST 


006576 
006462 


GTRY: 


10$: 


GTREX: 


1$: 


GTRX2: 


a 


8 11 
SEQ 131 
MACY11 30A(1052) 23-MAR-82 16: 47 PAGE 132 
ON TABLE AND ROUTINE 

TST TYP zLOOP MODE ? 

BEC 10$ NO, BRANCH 

BIT #DATCKB, PARAM 3DATA CHECK ? 

BEQ :NO, BRANCH 

CMP CMPTOT,TXMTOT :TX = EX ? 

BEQ YES BRANCH 

PRINTF #CLIPW SPRINT WARNING 
MOV #CLIPW,-(SP) 
my (ah Ae 
TRAP _ CSPNTF 
ADD #4,SP 

JMP GETCL ;TRY AGAIN 

RX ALLOCATE CODE 

ov #PTRTAB,TXPTR ;INIT TRANSMIT MESSAGE POINTER 

MOV #PTR13,CMPPTR INIT COMPARE MESSAGE POINTER 

MOV #PTR23.RXPTR INIT RECEIVE MESSAGE POINTER 

MOV CMPTOT,RXMTOT ;MAKE COMPARE AND RX MESSAGE COUNTS EQUAL 

CLR FLAG ZCLEAR FLAG 

CLR OPVAR :CLEAR OPTIONAL VARIABLE COUNTER 

CLR PSCNT [CLEAR PASS COUNT 

CLR ERRCNT [CLEAR ERR 

CLR MGLCNT 3CLEAR GLITCH COUNT 

CLR MHRCNT LEAR HARD ERR. oust 

CLR ?CLEAR LINE COUN 

MOV ry SYNCW ‘SET UP SYNCW YOR 86 SYNC +TSOM 

BIS #BiT?, DUPPAR RX SYNC=226 

TST RNODE 

BEQ 1$ z1F NON ITEP 60 TO os 

BIC #BIT7,DUPPAR :SET UP FOR 26 SYNC WORD ON RX. 

MOV #426, SYNCW SELSE SET UP SYNC FOR 26 AND TSOM 

JSR PC,LOGDVI *LOG ABOUT TO INIT DEVICE 

JSR PC;DVINIT SINIT DEVICE 

MOV #BUFLIM.CURCC ;SET CHAR COUNT TO “BUFLIM’ NO. OF BYTES 

MOV #RXBUF,CURADD SET UP RX BUFFER AS LORARENT. ADD. 

MOV RYPTR,CPTR 

MOV #10, MSGTYP :SET UP FOR 3 33 To FILL RX BUFFERS 

JSR PC, BLDB [CLEAR RX BUF 

MOV MODTYP, 

ASL R2 

JMP @MODE (R2) :MODE DISPATCH 


Cc 11 


SEQ 132 
CZDCLA 11 DATA C LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 133 
CZDCLA.P1 1DAMAR Oi 8: LN RECEIVE MODE SECTION 
19 »SBTTL RECEIVE MODE SECTION 
if ” FUNCTIONAL DESCRIPTION: 
1 : RECEIVE-ONLY ROUT INE 
1 ; IN THIS MODE OF TESTING. THe DEVICE'S RECEIVER IS ENABLED IN EXPECTATION 
1 ; OF RECEIVING A MESSAGE. AFTER RECEIVING AN “EXPECTED” NUMBER OF 
2416 ; MESSAGES, JHE DATA RECEIVED CAN BE COMPARED AGAINST A LIST OF "EXPECT 
3417 ; TO RECEIVE’ MESSAGES IF DATA-CHECKING IS ENABLED. 
3419 ; SUBORDINATE ROUTINES, USED: 
a75 ; 
5422 : CALLING § SEQUENCE: 
3423 3 MODE (R2) :DISPATCH TO MODE BASED ON MODE TYPE IN R2 
e05¢ : 
3426 032210 RXONL 
5427 032210 013737 006440 006522 RXON2: MOV RXPTR, CPTRR 
5428 032216 013737 006476 006474 MOV RXMTOT,DVRCT §_;SET UP MESSAGE COUNT 
5429 03 3 052737 000104 006602 BIS MORX+#ERX,FLAG :SET UP 
5430 032232 005037 006524 CLR CPTR SCLEAR THE TX POINTER 
3431 032236 000137 032400 JMP ALLTR 760 RX. 





CZDCLA_DUP=11 DATA COMM. LINK TEST 
CZDCLA.P1 1 “82 18:19 
58 
5435 
3 
i 
ace3 
548 
&& 
3722 
5447 
rk: 03224 737 000002 006576 
5450 039986 ik 7 006442 006524 
5451 032256 B13! 7 00646 seet t' 
ot28 032264 052737 ope! 006602 
5453 032272 803088 22 
5454 052276 000137 032400 


D 11 


MACY11 30A(1052) 23-MAR-82 16:47 PAGE 134 
TRANSMIT MODE SECTION 


~SBTTL TRANSMIT MODE SECTION 


+4 
FUNCTIONAL DESCRIPTION: 
Y (OR ONE-WAY-OUT) ROUTINE 
IN THIS MODE OF TESTING A LIST OF ME 


SSAGES_IS TRANSMITTED WITHOUT 
EXPECTING ANY DATA TO BE RECEIVED. A REPETITION COUNT CAN BE 
SPECIFIED TO REPETITIVELY TRANSMIT THE LIST. 


SUBORDINATE ROUTINES, USED: 


CALLING SEQUENCE: 
JMP @MODE (R2) :DISPATCH TO MODE BASED ON MODE TYPE IN R2 
TKONLY BIC #DATCKB,PARAM ;SET NOCHECK 
TXON2: MO TXPTR,CPTR 


MO TXMTOT,DVTCT | COPY COUNTER FOR THIS PASS 
BIS WOTX+HETX,FLAG :SET THE QUE TX FLAG 

c CPTRR [CLEAR RX POINTER 

ALLTR :60 TX. 


SEQ 133 





E 11 


c 11 DATA C NK TEST MACY11 30A(1052) 23-MAR-B2 16:47 PAGE 135 
C20 SeceAP I 1D-MAR oo iett> SIVE MODE SECTION 


»SBTTL PASSIVE MODE SECTION 


SEQ 134 


+ 
FUNCTIONAL DESCRIPTION: 
ares VE MODE aettio 


yeyyyn 8 
mionatierent = 


IN THIS MODE TESTING, THE DEVICE’S RECEIVER IS ENABLED IN 
5461 EXPECTATION OF RECEIVING A MESSAGE. THEN EVERY TIME A MESSAGE IS 
REC SAGE IS TRANSMITTED. DATA CHECKING CAN BE DONE ON THE 


ECE! 
RECEIVED ‘DATASS 


PER 


Seo Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se 
+ 


65 SUBORDINATE ROUTINES USED: 
5467 “ALLTR" 
5468 
5469 me S SEQUENCE: 
23% @MODE (R2) sDISPATCH TO MODE BASED ON MODE TYPE IN R2 
54 
547 


LCK: 
PLCK2: MOV TXMTOT ,DVTCT 3SET UP THE pee ae 


5474 032302 013737 006462 006460 COUNT 

5475 032310 013737 006442 006524 MOV TXPTR,CPTR SSET UP CPTR TO TRANSMIT POINTER 
5476 032316 013737 006440 006522 PLCK3: MOV RXPTR,CPTRR iSET UP CPTRR TO REC POINTER 
5477 032324 052737 000104 006602 BIS #ORK+HERK, FLAG T UP Q AND EXPECT RX 

3478 032332 000137 032400 JMP ALLTR ZAND GO RX FIRST MSG. 





CZDCLA_DUP-11 DATA COMM, LIK TEST 
CZDCLA.P11 19 


19-MAR-82 


18: 


0064 
Oossee 


006522 
606602 


F 11 


MACY11 30A(1052) Pont 16:47 PAGE 136 
ACTIVE MODE SECTION 


SEQ 135 


.SBTTL ACTIVE MODE SECTION 
+ FUNCTIONAL DESCRIPTION: 
; ACTIVE MODE SECTION 
; IN THIS MODE OF TESTING A LIST OF MESSAGES IS TRANSMITTED AND 
; MESSAGES ARE EXPECTED TO BE RECEIVED. RECEIVED DATA CAN BE COMPARED 
; AGAINST “EXPECTED DATA IF DATA-CHECKING IS ENABLED. 
; NOTE: IF BOTH ENDS OF THE LINK ARE IN ACTIVE MODE, THEN THE 
; LINK MUST BE A FULL DUPLEX LINK! 
: SUBORDINATE ROUTINES USED: 
: “ALLTR" 
> CALLING SEQUENCE: 
; JMP @MODE (R2) :DISPATCH TO MODE BASED ON MODE TYPE IN R2 
ALCK: MOV TANTOT DVTCT 34 OF MESSAGES TO TRANSIT (DEVICE TX COUNT) 
MOV ; SETUP X MESSAGE '. 
MOV RAnTOF BV spvn OF MESSAGES TO RECEIVE LDEVICE RX COUNT) 
MOV <SESUP RX MESSAGE LIST POINTER 
BIS Seresit feraeill FLAG 


6 11 


SEQ 136 

CZDCLA 11 DATA COMM, LINK TEST MACY11 30A (1052) 23-MAR-82 16:47 PAGE 137 
CZDCLA.P1 1 -82 18:19 RANSMIT = RECEIVE FOR ALL STANDARD MODES 

$508 .SBTTL TRANSMIT = RECEIVE FOR ALL STANDARD MODES 

5510 3+ 

5511 ; FUNCTIONAL DESCRIPTION: 

3516 ; THIS CODE PERFORMS THE FOLLOWING FUNCTIONS 

551 : 1.) IF RX BUFFERS ARE TELL DEVICE 

5514 : CODE TO QUE THEM 406 RECEIV VE GUE 

5515 ; 2.) IF TX BUFFERS ARE TO BE QUED ti * DEVICE 

2516 ; CODE TO QUE THEM, LOG TRANSMIT QUED. 

33 c ; 3.) WAIT FOR EITHER RECIVE BUFFER OR TRANSMIT BUFFER OR 

2319 : 4.) IF RECEIVE COMPLETE LOG IT UPDATE RX TABLE IF DATA 

5521 : 5.) IF TRANSMIT COMPLETE LOG IT. 

352 ; 6.) WHEN BOTH TRANSMIT AND RECIEVE LISTS ARE DONE 

2328 : GO TO THE COMPARE BUFFER CODE 

5525 ; SUBORDINATE ROUTINES USED: 

5526 : “DVRXQ “QUE RECEIVE BUFFER SPACE TO DEVICE 

5387 : “LOGRXQ''=LOG RECEIVE BUFFER SPACE TO EVENT LOG 

5528 : ~! a TRANSMIT BUFFER QUED TO EVENT LOG 

3529 ; ‘DVTXRX"=QUE TRANSMIT BUFFER AND WAIT FOR RX 

5 : OR TX TO COMPLETE 

5531 : *LOGRXC''=LOG RECEIV VE BUFFER COMPLETED TO EVENT LOG 

2332 ; ‘LOGTXC’=LOG TRANSMIT BUFFER COMPLETED TO EVENT LOG 

5534 : USE OF FLAG BITS: 

5535 ; QRX = SET ON INPUT TO ALLTR if REC IS TO BE QUED TO 

5536 : DEVICE CLEARED BY DVRXQ AND THEN SET BY DVTXRX 

5537 ; WHEN RX BUFFER IS COMPLETED. 

5538 : QTX = SET ON. INPUT TO ALLTR IF TRANSMIT IS TO BE QUED TO 

5539 : DEVICE. CLEARED ON ENTRY TO DVTXRX AND SET BY DVTXRX 

5540 : WHEN TX BUFFER IS COMPL 

3341 : ETX = USED BY DVTARX TO DETERMINE IF TX BUFFER COMPLETED IS 

2368 ; ERX = USED BY DVTXRX TO DETERMINE IF RX BUFFER COMPLETED IS 

5544 ; EXPECTED. 

5545 3 

5546 3 

5547 * CALLING SEQUENCE: 

3548 ; JMP ALLTR 360 TO TRANSMIT-RECEIVE FOR ALL STANDARD MODES 

3550 

551 

355¢ 052400 ALLTR: 

3353 032400 32737 000004 006602 ALCKS: eI #ORX FLAG : QUE RX ADDRESS & COUNT? (ARE WE RECEIVING?) 

5555 $3529 Oy 3763 006522 MOV CPTRR,R2 3GEf CURR T RX MESSAGE LIST POINTER(POINTS 

3356 TO RX VATE SsAGe List POINTER TABLE) 

55 414 011 ? 00654 MOV (R2), TEMP2 SAVE RX ADDRESS FOR LOG 

3558 4 12 00647 MOV (R2)+ ‘DURIA 3DEVICE RX ADDRESS 

555 424 011 , 34 MOV ), TEMP — RX CHAR COUNT FOR LOG 

5560 4 11237 MOV (R2) -DVRCC [DEVICE RX CHARACTER COUN 

320) B85226 04780 5 mov REL EPTRR ESTORE URDATED AX POINTER. 

2268 444 032737 0 006576 10$: BIT #PROTOB, PARAM Ao eit he 







H 11 | 
SEQ 137 


LINK TEST MACY11 SOACIOS¢? _23eMAR=82 16:47 PAGE 138 
19 TRANSMIT = RECEIVE FOR ALL STANDARD MODES 


CZDCLA ,"s ATA_COMM. 
CZDCLA.P11 82 is: 


5564 1 BNE ALCK1 :VES BRAN 
5565 onese £01985 035170 JSR PC, DVRXQ op Cue R Ry MeUFFERS & ENABLE RECEIVER 
2208 032460 030737 000010 006602 ALCK1: BIT #OTX, FLAG SARE WE TRANSMITTING ? 
5568 0 141 BEQ ALCK2 NO 
3569 9 0137 006524 MOV CPTR,R2 : CURRENT TRANSMIT MESSAGE LIST POINTER 
3 474 on] 540 MOV (R2) . TEMP2 [SAVE ADDRESS FOR LOG 
5571 0325 12237 006454 MOV (RO)+,DVTXA S TRANSMIT BUFFER ADDRESS 
5578 032504 011237 006542 MOV (R2), TEMPS SSAVE CHAR COUNT FOR LOG 
5573 032510 O12 7 006456 MOV (R2)+,DVTCC [TRANSMIT CHAR COUNT 
5574 032514 010237 304 MOV R2.CPT SSAVE UPDATED POINTER 
9579 032520 004737 0201 JSR PC.LOGTXQ SLOG TX QUE 
2278 032524 032737 000040 006576 ALCK2: BIT #PROTOB,PARAM ;°/PROTOCOL' ? 
5578 532 001410 BEQ 1 [NO, BRANCH 
5579 032534 004737 040706 JSR PC ,PROTOC 760 D2 DDCMP PROTOCOL PROCESSING 
5580 032540 032737 000200 006576 BIT #ABORT,PARAM § :PROTOCOL ABORT ? 
5581 032546 001404 BEQ 20$ =NO, BRANCH 
358 032550 000137 026644 JMP GTRAS SABORT!! AND RETURN TO "DCLT >* PROMPT 
5584 032554 004737 035272 10$: JSR PC, DVTXRX zIF TRANSMITTING QUE TX BUFFERS & ENABLE TX 
5585 “WAIT FOR TX/RX COMPLETE 
5586 032560 032737 000004 006602 208: BIT #ORX. FLAG tRECEIVED MESSAGE ? 
5587 032566 0015 BEQ :NO, BRANCH 
5588 05-570 013737 006470 006540 MOV DVRXA, TEMP [RX BUFFER ADDRESS 
5589 052576 013737 es 006542 MOV DVRCC. TEMP *RX CHAR COUNT 
5590 604 004737 02015 JSR PC,LOGRXC [LOG REC COMPLETE 
5591 032610 032737 006576 UPTABL: BIT DECHOS PARAM 318 THIS ECHO MODE (PASSIVE) 
5592 032616 001406 BEQ UPTA4 TIF NO 4 
559 620 013702 006524 MOV CPTR,R2 SELSE SET Re TO PRESENT TX TABL 
5594 032624 013722 00654 MOV TEMPS. (R2)* 3STORE OFF RX ADD 
5595 032630 013712 00654 MOV 
55 032654 03273 006576 UPTA4: BIT ADATCKB, PARAM is DATA CHECKING ASKED FOR 
559 642 001015 BNE t1F SO GO TO 1 
5598 032644 1 7 000001 006474 MOV a DVRCT TELSE SET DVRCT TO A 1 
5599 032652 013737 006440 006522 MOV RXPTR,CPTRR SRESET POINTER 
5600 032 22737 000003 0065 CMP #ACT ,MODTYP t1S THIS ACTIVE 
5601 666 00100 BNE UPTAS 
2602 0 670 005237 006474 NC DVRCT z1F YES BUMP COUNT 
560 674 2 UPTA3: 
5604 032676 13708 006522 UPTA1: MOV CPTRR,R2 
5605 0 11 5 MOV (R2), TEMP :LOAD TEMP WITH PREV. COUNT 
2606 9 163737 542 006534 SUB TEMPS, TEMP *LOAD TEMP WITH PREV.COUNT-CURRENT 
714 01 ze 54 MOV TEMPS, (R2)+ 
3608 7 542 006540 ADD TEMP3, TEMP2 
1372 54 MOV TEMP (2) ZSTORE OF NEW ADD 
5610 01371 006534 MOV TEMP (R2 SAND NEW CC 
3611 162702 2 SUB #2,R2 [PUT POINTER BACK TO ADDR. 
5618 032742 010237 006522 MOV R2,CPTRR ZAND RESTORE IT. 
Bar: 746 UPTEX: 
2616 246 020737 000002 006570 CMP #PAS ,MODTYP 
i, Gres BMT oon oon «BE AAihems ring iHEMaGMAS IGGL OES R"cStLETES rnc 
5619 355¢8 be3f 7 210 iets BIS WOTX+M#ETX.FLAG :SET THE TX FLAGS 





111 


SEQ 138 
CZDCLA_DUP=11 DATA COMM. LINK TEST MACY11 gest 23-MAR-82 16:47 PAGE 139 


CZDCLA.P11 1 =82 18:19 SMIT = RECEIVE FOR ALL STANDARD MODES 
¢ 032772 000632 BR ALCK1 
¢ 77% 005337 7% ALCK2A: DEC DVRCT :DEC REC COUNT 
5737 74 TST DVRCT 71S IT ALL 
4 1 5 BNE ALCK :NO. GO CHECK TX 
5 é 900004 006602 BIC #ORX, FLAG [CLEAR THE RX FLAG 
6 14 037 006 2 CLR CPTRR ‘YES. CLEAR POINTER 
03 737 000010 006602 ALCK3: BIT #OTX, FLAG SIS IT 1 
8 1447 BEQ SIF NOT TX THEN GO BACK 
13737 006454 006540 MO DVTXA, TEMP 
56. 9 13737 0064 006542 MOV DVTCC, TEMP :LOG TX COMPLETED 
1 737. 02011 JSR PC ,LOGTXC 
033050 903 7 DEC DVICT :DEC TX COUNT 
5633 033054 022737 000002 006570 CMP #PAS ,MODTYP 
5634 33062 001 13 BNE ALCKSA z1F NOT PASSIVE MODE GO TO 3A 
5635 03 000210 00660 BIC WOTX+ETX,FLAG CLEAR THE TX FLAGS 
3636 0 72 52737 000104 00660 BIS WORX+ERX.FLAG AND SET THE RX FLAGS 
5637 0331 737 006460 TST DVTCT 
5638 03 104 001005 BNE ALCK3C z1F MORE RX'S DO IT 
5639 3106 000137 033166 JMP CMPSR ELSE COMPARE 
5640 033112 005737 ALCK3A: TST DVTCT 21$ IT ALL DONE 
5641 033116 901402 BEQ ALCK38 tIF NOT GO BACK TO 5 
5642 0331 90013 032400 ALCK3C: JMP ALCKS 
5643 033124 005037 006524 ALCK3B: CLR :1F SO CLEAR POINTER 
O331 042737 000010 006602 BIC #OTX, FLAG SCLEAR TX FLAG 
5645 033136 032737 000002 006576 BIT ADATCKB,PARAM :1S IT DAT CK 
5646 033144 00140 BEQ ALCK4A SIF NOT THEN END WO CKING RX. 
5647 033146 005737 006522 ALCK4: TST 
He 1: 033152 001362 BNE ALCK3C zIF SOME RX''S LEFT GO BACK 
5650 033154 005737 006524 ALCK4A: TST CPTR 
5651 033160 00140 BEQ ALCK4B ;BRANCH IF ANY TX*S LEFT 
5652 033162 000137 032524 J ALCK2 
3653 033166 ALCK4B: 
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CZDCLA.P11 ~82 18 COMPARISON C 
57 ~SBTTL DATA COMPARISON CODE 
59 
5660 ° ++ 
5661 : FUNCTIONAL DESCRIPTION: 
eee CMPSR = COMPARE CODE 
5664 THIS CODE COMPARES THE RECEIVED DATA AGAINST THE 
3665 » EXPECTED AND FILLS THE EVENT LOG WITH 1 OF 3 MSGS. 
5667 NOTE: IF NO DATA CHECKING SKIP THIS CODE 


1.) A_DATA COMPARISON ENTRY — REPORTS THE NUMBER 
OF COMPAR RROR 


; 3.) ae DATA fue ten STARTED ENTRY WHICH REPORTS ADDRESS 
: RECEIVE BUFFER BYTE 


COUNT. 
THIS” CODE “2 REPORTS SOFT ERRORS FOR DATA COMPARISON 


epeeneeneE 


(THE FIRST 5 ONLY),LENGTH ERROR,AND TOTAL NUMBER OF ERRORS 
5678 : 
5679 : SUBORDINATE ROUTINES USED: 
5681 “LOGCMP’’ = SEE ITEM 3 ABOVE 
5682 “LOGCML'’ = SEE ITEM 2 ABOVE 
5683 “LOGCMD'’ = SEE ITEM 1 ABOVE 
Bet : CALLING SEQUENCE: 
3686 : JMP CMPSR :JUMP TO DATA COMPARISON CODE 
5688 
5689 033166 032737 000002 006576 CMPSR: BIT #DATCKB, PARAM i1S DATA CHECKING TO BE DONE 
5690 033174 001522 BEQ CMPSEX tIF NOT THEN EXIT 
5691 033176 013737 006440 006524 MOV RXPTR,CPTR [PUT START OF RX POINTERS TO CPTR 
5692 033204 013737 006444 006522 MOV CMPPTR,CPTRR =: AND START OF COMPARE POINTS TO CPTRR 
2693 033212 013737 006476 006474 MOV RXMTOT.DVRCT 
5695 033220 CMPS3: * 
3696 0332 013702 006524 MOV R,R2 sMOVE CURRET RX PT.TO R2 
569 0332 4 011237 006540 MOV 4 ae *TEMP2 [MOVE RX ADD TO EVENT LOG 
5698 033 12201 MOV (R2)4+,R1 [SET R1 TO START ADD OF RX 
99 03 32 12237 542 MOV (R2)+. TEMP3 [SET CHAR COUNT TO EVENT LOG 
700 10237 524 MOV R2,CPTR SRESTORE RX POINT 
702 03326 013708 006522 MOV CPTRR,R :PUT R2 AT COMPARE TABLE 
5703 03 1220 MOV (R2)+.R [SET R3 TO COMPARE ADD 
5704 033250 01 MOV & )+°RG [SET R4 TO COMP CC 
5705 033252 010237 522 MOV R2,CPTRR SRESTORE POINTER 
2706 03 56 10437 544 MOV RG. CraPe 
3707 0332 737 020246 JSR PC; LOGCMP 3LOG COMPARE START. 
5709 03 366 020437 006542 CMP RG TEMPS :1S COMPARE COUNT = TO RX COUNT 
710 03 1410 BEQ CMPS :IF $0 GO TO 
711 033274 005237 006506 INC RRCNT 
712 033 ERRSOFT 1,EDDLE,ERR10 ;PRINT ERROR 


CZDCLA rs 7. on LINK TEST 
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SEQ 140 


A COMPARISON C 
TRAP CSERSOFT 
.wor? 1 
<WORD EDDL 
“WORD ERR 
JSR PC, LOGCML yLOG LENGTH ERROR 
CMPS7: (CLR EMP4 :CLEAR BAD BYTE COUNTER 
MOV #1,0FSET 3SET OF SET BYTE COUNT TO 
CMPS1: C (Ri) +, (R3)+ ARE RX WITH EXPETED 
BEQ CMPS6 tIF EQUAL THEN GO TO 6 
CMPS2: INC TEMP4 ZINC BAD COUNT 
CMP TEMPS ,#5 t1S IT MORE THEN 5 
BHI $6 :IF $0 GO FOR MORE 
MOVB  =(R3),GOOD [STORE GOOD BYTE FOR ERROR 
nove = (R1) -BAD [STORE BAD BYTE FOR ERROR 
ERRSOFT 5 EDDDE,ERR1 § ;REPORT COMPARISON FAILURE TO OPR. 
TRAP CSERSOFT 
.WORD 2 
“WORD EDDDE 
“WORD ERR1 
INC R1 
INC R3 
CMPS6: INC OF SET zINC OFFSET 
DEC RG SELSE DEC CHAR COUNT AND SEE IF 0 
BNE CMPS1 IF NOT K 
TST TEMP4 ‘SEE IF ANY CMP ERRS FOR THIS MSG 
BEQ CMPSSA :BR IF NONE 
INC ERRCNT 
ERRSOFT 3,EDDDE,ERR2 REPORT # OF MISMATCHES FOR MESSAGE 
TRAP CSERSOFT 
«WORD 
“WORD EDDDE 
“WORD ERR2 
CMPSS: JSR PC,LOGCMD :LOG DATA ERROR IN COMPARE 
CMPSSA: 
DEC DVRCT 
BNE CMPS3 :1F NOT ALL DONE GO BACK 


L 11 


SEQ 141 
CZDCLA DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-B2 16:47 PAGE 142 
CZDCLA.P11  19=MAR-82 18:19 M CHANGE REPORT 

5735 .SBTTL MODEM CHANGE REPORTS 
5755 i+ 
575 3 FUNCTIONAL DESCRIPTION: 
575 ‘ THIS SECTION REPORTS THE NUMBER OF MOMDEM STATUS CHANGES 
5758 : OCCUR ON EACH PASS. THE ERROR IS ONLY REPORTED IF 
5759 ; THERE WERE ANY CHANGES IN OTHER WORDS A COUNT OF ZERO IS 
5760 ; R ED. THE CHANGES REPORTED IN T 
5761 : HAR S AND GLITCHES. HARD ER ARE WHEN THE DEVICE 
57 ; IS ABLE TO LATCH UP THE BAD MODEM STATUS. GLITCHES OCC 
576 : WHEN THE MODEM STATUS CHANGES TO CAUSE A DATA SET CHANG 
5764 ; INTERRUPT BUT THE CHANGE DOES NOT OCCUR LONG ENOUGH F 
2769 : THE DEVICE TO LATCH THE DATA 
5767 + INPUTS: 
5768 : "'MGLCNT"’ = CONTAINS NUMBER OF GLITCH ERRORS 
3769 ; “MHRCNT'’ - CONTAINS NUMBER OF HARD ERRORS 
5771 : OUTPUTS: 
3772 ; "MGLCNT"’ “ZEROED BY THIS SECTION 
2003 : “MHRCNT"" “ZEROED BY THIS SECTION 
5775 33 
5778 033442 005737 011516 CMPSEX: TST MGLCNT :CHECK FOR ANY GLITCH ERRORS 
5 33446 001003 BNE MCREP tIF NON ZERO R THEM 
5780 033450 005737 011520 TST MHRCNT 3 CHECK FOR ANY HARD ERRORS 
3781 033454 001412 BEQ ENDPS :IF NONE GO TO END OF PASS 
3783 ;REPORT ANY MODEM ERRORS HERE 
5785 033456 005237 006506 MCREP: INC ERRCNT :BUMP ERROR COUNT 
5786 033462 ERRSOFT 4,MSCMS,ERR4 
5787 033462 104457 | TRAP  CSERSOFT 
2785 Oe aces 014764 WORD ASCHS 
5790 033470 017604 “WORD ERR 
5791 033472 005037 011516 CLR MGLCNT :CLEAR GLITCH COUNT 

011520 CLR MHRCNT :CLEAR THE HARD COUNT 


a4 033476 005037 
579 


CZDCLA DUP=11 DATA com Link TEST 
CZDCLA.P11 19-MAR=82 18:1 


5794 


5811 033502 005237 006504 


5813 033506 013737 006502 006544 
5814 033514 013737 006504 006540 
5815 035522 013737 006506 006542 
5816 033530 004737 020320 


5818 033534 Orelat 177777 006600 
005337 006600 
032142 


00013 
033556 042777 000120 155664 
5824 033564 000137 026644 


411 


MACY11 30A(1052) 23=MAR=82 16:47 PAGE 143 
INTERNAL END OF PASS CODE 


-SBTTL INTERNAL END OF PASS CODE 


y: FUNCTIONAL DESCRIPTION 
. THIS CODE INCREMENTS THE PASS COUNT FOR THE 
ENT THE END 


0 DCLT_PROMT 
IN NOT = TO 0 THEN GO BACK TO MODE DISPATCHER 
; SUBORDINATE ROUTINES USED: 
"LOGEOP’' = LOG END OF PASS TO EVENT LOG 


isepindlenihcat- aimee 
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ENDPS: INC PSCNT sBUMP PASS COUNT 


MOV OPVAR , TEMP4 
MOV PSCNT, TEMP2 


MOV ERRCNT, TEMP3 
JSR PC,LOGEOP zLOG END OF PASS 
CMP #~-1,RPASS :SEE IF RPASS=-1 
BEQ 1$ Fir IS DON'T DECRMNT, LOOP FOREVER 
DEC RPASS ‘aEc P ASS COUNT 
BEQ 2$ t4F DONE EXIT TEST 
1$: JMP GTRX2 ZELSE GO BACK AND DISPATCH 
2s: BIC WRINTEN! RXENA, @RXCSR 
JMP GTRAS : WHEN RPASS=0 60 BACK TO ‘DCLT>"’ 


SEQ 142 


CZDCLA rs 
CZDCLA.P11 
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MACY11 yg pe m 47 PAGE 144 
OWN-LINE-LOAD SECTI 


»SBTTL DOWN=LINE=LOAD SECTION 
x FUNCTIONAL DESCRIPTION: 
: DOWN LINE LOAD IS NOT SUPPORTED BY THIS DEVICE.. 
S$ MODE IS CALLED BY THE COMMAND LINE INTERPRETER 


; IF THI 
3 THEN A MESSAGE WILL BE PRINTED ae THAT SAYS DOWN LINE 
; LOAD IS NOT!! SUPPORTED BY THIS DEVICE. 


PRINTF #DLLCM 


JMP GTRAS 


#DLLCM,-(SP) 
#1,-(SP) 


SP RO 
CSPNTF 
#4 ,SP 


SEQ 143 
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SEQ 144 
CZDCLA DUP=11, DATA DATA. COMM, LJ LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 145 
CZDCLA.P11 ALK MODE SECTION 
5846 »SBTTL TALK MODE SECTION 
8 3+ 
; 9 ; FUNCTIONAL DESCRIPTION: 
5850 : TALK MODE SEC 5 ibe 
5851 ; IN tats MODE ‘TALK'* END_OF lie LINK TRANSMITS OPERATOR 
385¢ ; SPECIFIED MESSACES UNTIL A “EXIT’* MESSAGE 1S TYPE. AT THAT POINT, 
2893 ; THIS END OF THE LINK GOES INTO LISTEN’ MOD 
2859 : SUBORDINATE ROUTINES USED: 
585 ; "LOGTXQ'' = LOG TX BUFFER QUED TO EVENT LOG 
5858 : “DVTXRX' = QUE TX BUFFER TO DEVICE AND WAIT FOR COMPLETE 
5859 : ‘LOGTXC’’ = LOG TX COMPLETE TO EVENT LOG 
abet : CALLING SEQUENCE: 
2862 : JMP @MODE (R2) :DISPATCH TO MODE BASED ON MODE TYPE IN R2 
5864 
5865 033614 TALCK: 
3866 033614 042737 000002 006576 BIC MDATCKB,PARAM ;SET NOCHECK 
5867 033622 012702 002520 MOV #OPBUF 
5868 033626 012722 177777 1$: MOV #=1, (RO)+ :CLEAR OUT OPBUFFER FIRST 
5869 033632 022702 002642 CMP #OPEND ,R2 
5870 033636 00137 BNE $ 
5871 033640 GMANID OPRMM,OPBUF.A,-1,1,72..NO :GET TALK MESSAGE 
5872 033640 104443 TRAP  C$GMAN 
5873 033642 000406 BR 10001$ 
5874 033644 002520 .WORD  OPBUF 
5875 03 00014 “WORD  TSCODE 
5876 033650 01406 “WORD OPRMM 
5877 033652 177777 “WORD =1 
5878 033654 000001 “WORD TSLOLIM 
33656 000110 “WORD TSHILIM 
033660 10001$: 
5881 033660 995002 CLR R2 zNOW GET CHAR COUNT 
5 kj 122762 000377 002520 2$: CMPB ss #377, OPBUF (R2) 
5 033670 00140 BEQ 33 
3 033672 00520 INC R2 
885 0336746 90077 BR 2$ 
388 033676 010237 002166 3$: MOV R2,0PCNT 
5888 033702 12737 520 006454 MOV WOPBUF ,DVTXA =: SET _ UP TX ADDR. 
5889 033710 012737 520 540 MOV #OPBUF . TEMP 
033716 1 130 2166 006542 MOV OPCNT , TEMPS 
5891 33724 13737 002166 56 MOV OPCNT .DVTCC zSET UP TX CC 
589 9 3 737 020100 JSR PC, LOGTXQ 
589 736 052737 219 006602 BIS WOTX+#ETX,FLAG ;:SET UP FLAGS 
389% 033744 037 22 CLR CPTRR SCLEAR RX POINTER 
5 rzTHIS CODE ADDED FOR PROTOCOL 
3897 033750 030737 000040 006576 BIT #PROTOB.. PARAM i PROTOCOL *? 
5899 33760 Spa SF 035272 JSR BC DVTXRX nga 
5900 033764 05 BR 258 : JUMP AROUND PROTOCOL 
5901 033766 737 000004 006602 20%: BIC #RXQ, FLAG [MAKE SURE NOT TO RECEIVE 
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TEST MACY11 30A(1052) i 16:47 PAGE 146 


249 25$: 


002520 


TALK MODE SECTI 

CALL PROTOCOL :D0 DDCMP PROTOCOL 
MOV DVTXA, TEMP 

MOV DVTCC, TEMP 

JSR PC LOGTXC 

CMP #€X, OPBUF :CHECK FOR EXIT 

BNE TALCK 

CMP # IT, OPBUF +2 

BNE TALCK 

BIC WOTX+MHETX,FLAG CLEAR THE TX BITS 
MOV #L1S ,MODTYP :CHANGE TO LISTEN MODE 
JMP GTRX2 tAND GO BACK TO DISPATCH 


SEQ 145 
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CZDCLA a, ATA COMM. LINK TEST MACY11 30A(1052) 23-MAR=82 16:47 PAGE 147 
CZDCLA.P11 “82 18:19 LISTEN MODE SECTION 


-SBTTL LISTEN MODE SECTION 


+ 

FUNCTIONAL DESCRIPTION: 
LISTEN MODE SECTI 
IN THIS MODE, THE "LISTEN" END OF THE LINK PRINTS ALL OF THE MESSAGES 
RECEIVED BY {HE DEVICE ON THE OPERATOR'S CONSOLE. | IF, THE, MESSAGE 
RECEIVED IS AN EXIT’ MESSAGE, THEN THE NODE ENTERS ‘‘TALK’’ MODE. 


SUBORDINATE ROUTINES USED: 


14 DVRXG’; = QUE RECEIVE BUFFER SPACE TO DEVICE 
VLOGRXQ'’ - LOG RECEIVE BUFFER QUED TO EVENT LOG 
“DVTXRX'! = WAIT FOR RX T 
LOGRNC"* = LOG RX COMPLETE TO EVENT LOG 


aS SEQUENCE : 
@MODE (R2) sDISPATCH TO MODE BASED ON MODE TYPE IN R2 


LISCK: C #DATCKB, PARAM Ait CHECK BIT 
PR #LISP PRINT PROMPT FOR OPR. 


#OPBUF ,DVRXA sSET DEVICE UP TO REC AT OPBUF 
#OPBUF , TEMP2 
#82. ,DVRC 3SET UP CHAR COUNT TO 82. 


WORK+#ERX,FLAG SET UP FLAG 
CPTR SCLEAR THE TX. 


SELECTED ? 
oo 


3*/PROTOCOL® ? 
BRANCH 


633120 170 PC ,DVRXQ sQUE RX 
PC,,LOGRXQ 
035273 SR 4" " heen 3:60 TO DEVICE RX. SUBROUTINE 


BR 2 

07 : PROTOC :D0 DDCMP PROTOCOL 

>:  =MOV DVRXA, TEMP 
DVRCC, TEMP :SET UP ADDR.AND CC. 
PC ,LOGRXC ‘LOG COMPLETED 
DVAXA, DVRCC 
apvace 
#OPBFPT 


7 
02015 


CLRB 
PRINTF 
#OPBFPT,-(SP) 
7 (SPS 


#°EX ,OPBUF sCOMPARE FOR EX OF “EXIT*® 
LISCKA 31F NOT EXIT THEN GO BACK 


SEPEPSSESSSSS GIGS 


FEEEEREFSEE EES 
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SEQ 147 


CZDCLA.P1 LISTEN MODE SECTION 
tie 052111 002522 CMP #"1T,OPBUF+2 IF FIRST HALF OK uk CHECK NEXT PART 
an BNE LISCKA SIF NOT EXIT T BACK 
005 006570 MOV ATAL ,MODTYP [CHANGE MODE 1 TALK 
JMP GTRX2 SRETURN TO DISPATCHER 


978 


F 12 


SEQ 148 
CZDCLA DUP=11 DATA COMM, LINK TEST MACY11 30A(1052) 23-MAR=82 16:47 PAGE 149 
CZDCLA.P11  19-MAR-82 18:19 DEVICE FUNCTION SUBROUTINES 
sare .SBTTL DEVICE FUNCTION SUBROUTINES 
978 
5979 
5980 
5981 .SBTTL DEVICE INIT SUB... INE 
598 
598 
5984 i+ 
5985 : FUNCTIONAL DESCRIPTION: 
& : = DEVICE INIT ROUTINE 
598 : vHIS ROUTINE IS DEVICE DEPENDENT CODE THAT INITS 
5988 : THE DEVICE BEING TESTED. 
5989 : IT SETS THE DEV VICE UP TO THE MODE IT IS TO RUN IN AND 
5990 ; INITIATES THE START,STACK,ACK SEQUENCE IF THE “RWODE™ (REMOTE 
3991 ; NODE) INPUT THOS CATES THE REMOTE NODE IS NON-ITE 
5993 : INPUTS: “EHDPLX’’ INDICATES IF MODE IS FULL OR HALF DUPLEX. (1=FULL) 
2934 : ADDRESS POINTERS (SELO,...) ALREADY POINT TO DEVICE'S REG.S 
5996 3 "MLTYP"! INDICATES THE LOOP TYPE (1=TTL,2=CAB, 3=RM,4=LM) 
3997 ; “RNODE’’ INDICATES THE TYPE OF REMOTE NODE (ITEP=1.NON-ITEP=0) 
5999 : SUBORDINATE ROUTINES USED: 
rt : “CTSSR'’ = CLEAR TO SEND SUB ROUTINE 
600 : “DVINS1°' = SEND CONTROL AND REC OR TIME OUT 
600 : ‘CLRRTS'' = CLEAR REQUEST TO SEND ROUTINE 
6004 ; LGDVE’* = LOG DEVICE ERROR TO EVENT LOG 
6006 + CALLING SEQUENCE: 
6007 : JSR PC,DVINIT 
6008 s=- 
6009 
6010 034306 DVINIT: 
6012 DO MASTER CLEAR 
6013 034306 012777 000600 155142 56s: MOV WRESET,@TXCSR :DO A MASTER CLEAR 
6014 034314 000240 NOP [WAIT A WHILE FOR 
6015 034316 900240 NOP t:1T TO CLEAR 
6016 034 01277 000400 155130 MOV #RESET .@TXCSR 7bO A CLEAR AGAIN(NECESSARY WITH LOOP=CABLE) 
6017 034326 117737 155116 006542 MOVB = @RXCSR. TEMP [SEE IF IT WORKED 
6018 034334 001423 BEQ DVINI ‘BRANCH 
6019 0343 BREAK 
6020 034336 104422 TRAP C$BRK 
6022 sREPORT ERROR IF RESET 
3 [DOES NOT WORK 
6025 034340 9127 7 016747 00654 MOV #DVEMO, TEMP 
60 034 6 017737 155076 00654 MOV @RXCSR, TEMP 
60 34 54 017737 155076 00654 MOV @TXCSR.TEMP4 § ;LOAD UP ERRM. AND REG OUTPUTS 
6028 0 737 02016 JSR PC LGDVE SLOG TIME OUT WAITING FOR RUN 
$ O34372 ee - ERRSOFT gARC DYERO ERR13 
6031 034372 104457 
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CZDCLA ie ATA C LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 150 
CZDCLA.P1 1SSMAR-BS 18:19 DEVICE INIT SUBROUTINE 


& $e ene? “WORD Byer 


SEQ 149 


66 000 BR DVINIT 360 BACK AND TRY MSTR CLR AGAIN IF ERROR 
6037 :SET TTL LOOP IF REQU'D 

6039 034404 04 7 000003 906602 DVIN1: BIC #3,FLAG :CLEAR INPUT AND OUTPUT INT FLAGS 

6040 1 004000 15 036 BIC ATTLL,aTXCSR CLEAR INTERNAL 

6041 420 020737 000001 cme art ALTYP 31$ TTL SELECTED 

6043 0 052777 004000 155020 BIS aTTLL @TXCSR ZELSE SET INTERNAL LOOP 

6064 034436 000461 BR DVIN3? 

6046 034440 020737 000002 006572 DVIN3: CMP WCABLE,MLTYP §;CABLE LOOP ? 

6047 034446 001004 BNE 1 : H 

6048 034450 052777 010000 155000 BIS #CABLOP.@TXCSR [SET EXTERNAL LOOP (TURN AROUND CONNECTOR) 
6049 034456 000451 BR DVINS7 ; 

6051 034460 022737 000004 006570 10$: §§ CMP #D0W,MODTYP :CHECK IF DLL 

6052 034466 001002 BNF DVINSA [BRANCH IF NOT DLL 

6053 034470 000137 035130 JMP DVINEX TELSE EXIT 

6035 034474 012777 000002 154746 DVIN3A: MOV #DTR,@RXCSR :SET UP DTR. 

6057 034502 012737 002000 006642 MOV #2000, TIMER? 

6058 034510 005737 006642 DVIN38: TST TIMER' 

6059 034514 001022 BNE DVIN39 zIF TIMER NOT OUT GO TO 39 

oe bee zSET ERROR FOR NO MODEM READY 

rts 8 034516 012737 017377 006540 MOV #DVENG, TEMP 

6064 034524 017737 154720 006542 MOV @RXCSR. TEMP 

6065 034532 017737 154720 006544 MOV @TXCSR, TEMPS 

6066 034540 737 020162 JSR PC ,.LGDVE 

6067 034544 005237 006506 INC ERRCNT 

6068 034550 ERRSOFT 11,DVEM6,ERR13 

6069 034550 104457 TRAP  CSERSOFT 
6070 034552 1 .WORD 11 
6071 034554 01 “WORD DVEMG 
6072 034556 017 “WORD ERR1 
6073 0 7% BR DVIN3A ;THEN TRY TO SET DTR AGAIN 

6074 6 DVIN39: BREAK 

6075 104422 TRAP CSBRK 
607 054364 1 154660 011476 MOV BRXCSR IRXCSR ;GET COPY OF RXCSR 

60 345 50757 001000 011474 gi! welt IRXCSR § :1S MODEM READY SET 

60 8 13 911470 154642 DVIN37: MOV DUPPAR,@PARCSR ;:SET PARAMETER REGISTER 

6080 1 5737 01152 TST RNODE SREMOTE ITEP 

6081 14 1145 BNE YES, BRANCH 

608¢ 1 5737 006574 TST FHDPLX SFULL DUPLEX ? 

608 1342 BEQ DVINEX [NO, BRANCH 

6084 4 032737 000040 006576 BIT #PROTOB,PARAM :'/PROTOCOL® ? 

6085 0 1136 BNE DVINEX YES BRANCH 

tig z3 THIS START-STACK ROUTINE USED IN NON-PROTOCOL,NON-ITEP,FULL DUPLEX MODE 


H ie 


SEQ 150 

CZDCLA 11 DATA COMM, LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 151 
cfbecn pat 1DeMARCB 18619 DEVICE INIT SUBROUTINE 

goes SET UP T SEND STRT 

6090 034634 112737 000005 002645 MOVB et G+1 :SET 

6091 2 50737 2 BIS Sau TAR FLAG :SET FLAG WORD 

6036 50 012737 4 4 MOV #60. ell IMERS [SET TIMER FOR 1 MINUTE 

609 56 737 036576 JSR PC, CTS SSET CTS IF NESC. 

60% 0 662 012737 900006 002646 DVING1: MOV #6. Apace SSET UP STRT CODE 

6095 0 004737 0 JSR PC. DVINS1 :GO0 TX STRT AND CHK FOR RX. 

609% 9 74 005737 006646 TST TIMERS 

6097 034700 001 BEQ DVINS1 zIF TIMER EXPIERED EXIT 

£098 a: 034702 022737 000006 002660 DVING: CMP #6 ,RHDMCC z1S THE RCVD=STRT 

6100 03471 1441 BEQ N +1F $0 Go TO A ASTRT 

6101 034712 022737 000007 002660 CMP #7,RHDMCC tIS ITA 

610¢ 034 001 BNE DVING1 SIF NOT STACK ETIHER GO BACK 

6104 034722 004737 036576 DVIN9: JSR PC,CTSSR :SET REQUEST TO SEND 

6105 034726 04 001010 006602 BIC #OTX!PAD,FLAG 3CLEAR TX COMPT FLAG. 

6106 034734 012737 000001 002646 MOV #1, HDMCC SET UP ACK 

6107 034742 012737 002645 011500 MOV #HDMSG+1 .MSGPTR :SET UP POINTER 

6108 034750 01 030 002654 011502 MOV HDMC ,MSGCC 

6109 034756 012737 000010 011504 MOV #8. SYNCC sSET UP SYNC COUT 

6110 034764 052777 000120 154464 BIS #SEND I TINTEN, @TXCSR ;TURN ON TX, ENABLE TX INTERRUPT 

6111 034772 032737 000010 006602 DIVN91: BIT AG 

gig 035000 001053 BNE OVINE sEXIT IF ACK SENT 

611 035002 BREAK 

6114 03500 104422 TRAP C$BRK 

6115 035004 005 006646 TST TIMERS 

6116 035010 001370 DI zIF NOT TIMER EXPIRED RECHK TX. 

6117 12 1 BR DVIN81 :IF TIMER OUT REPORT IT 

6119 035014 012737 900007 002646 DVINS: MOV #7 -HOACC ;SET POTINTER TO STACK 

6120 035022 004737 036432 JSR PC; DVIN31 sAND GO SEND STACK 

6121 035026 005737 6 TST TIMERS 

61 g 035032 001411 BEQ DVINS1 :REPORT ERROR IF TIME OUT 

6123 035034 022737 000001 002660 CMP #1,RHDMCC t1S IT ACK RCVD? 

6124 0 3042 1438 BEQ DVINEX IF $0 ext 

6125 035 22737 000007 002660 CMP #7,,RHDMCC 21S IT STACK RCVD 

6126 035052 1723 BEQ DVINO [IF SO SEND A 

6127 035054 000757 BR DVINS TIF NEITHER SEND ANOTHER ACK 

6129 3D0 ERROR AND REPEAT 

6131 035056 012737 017313 540 DVIN81: MOV #DVEMS, 5 - TEMPE 

61 35 13737 002660 54 MOV RHDMCC 

61 50 13737 64 544 MOV HDMCC ay :LOAD UP ERRM. AND REG OUTPUTS 

61 31 737 02016 JSR PC LG GOVE [LOG TIME OUT WAITING FOR RUN 

6135 035104 005237 5 INC ERAC 

6136 3511 ERRSOFT OVENS, ERR13 

61 35110 104457 TRAP CSERSOFT 

6138 3311 le «WORD 10 
6139 035114 01731 “WORD DVE 

6140 035116 017 “WORD ERR 

6141 0351 5 006502 INC OPVAR SCOUNT HOW MANY TIMES WE DO THIS. 

614g 51246 7 JMP DVINIT STRY ALL °.ER AGAIN 


CZDCLA 
CZDCLA.P1 


614 
6148 
6149 


+ py RS TEST 


se BE a 


5150 
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MACY11 30A(1052) 23-MAR-82 16:47 PAGE 152 
DEVICE INIT SUBROUTINE 


DVINEX: JSR PC CLART sCLEAR RTS IF NESC 
BIC #1? 7 FLAG SCLEAR FLAG 
BIS SINOVR. FLAG 3SET THE INITT OVER FLAG 
RTS PC [RETURN TO CALLER 


SEQ 151 


J 12 


D 11_ DATA com LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 153 
cHOCLALPI 1 82 18:19 DEVICE GET MODEM STATUS SUBROUTINE 


6150 -SBTTL DEVICE GET MODEM S$ ATUS SUBROUTINE 


SEQ 152 


"FUNCTIONAL DESCRIPTION: 
“DVMODS'* GET MODEM STATUS 


IMPLICIT INPUTS: 
THE BIT POSITION AND AVAILABILITY OF THE MODEM SIGNALS CTS,DSR,...RI.. 
FOUND IN THE DEPENDENT PORTION OF THE GLOBAL EQUATES SECTION. 


OUTPUTS: 
CURRENT MODEM SIGNAL VALUES IN ‘MODS"* 


CALLING SEQUENCE: 
JSR PC ,DVMODS 


6 ee 
oly 035152 017737 154272 007556 DVMODS: MOV @RXCSR MODS sREAD MODEM STATUS 


6172 035160 042737 104761 007556 DVMEX: BIC #104761 ,MODS CLEAR BITS NOT RELATING TO MODEM 
oi? 035166 000207 RTS PC RETURN TO CALLER 
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CZDCLA_DUP=11 DATA om LINK TEST MACY11 30A(1052) 23-MAR=82 16:47 PAGE 154 
CZDCLA.P11 19-MAR=82 18:19 DEVICE QUEUE RECEIVE SPACE SUBROUTINE 














SEQ 153 


617 .SBTTL DEVICE QUEUE RECEIVE SPACE SUBROUTINE 
6178 3¢ 
6179 : FUNCTIONAL DESCRIPTION: 
6180 : DVRXQ = THIS SUBROUTINE QUEUES THE RECIEVER BUFFER SPACE TO THE 
6181 : DEVICE, THEN CLEARS THE QRX BIT OF THE FLAG WORD. 
bigs : INPUTS: 
6184 : DVRXA = ADDRESS OF RX BUFFER SPACE 
6185 ; DVRCC = BYTE CHAR COUNT OF RX BUFF 
6186 ; QRX FLAG BIT = SET BY CALLING ROUTINE 
6188 : OUTPUTS: 
6189 ; QRX FLAG BIT = CLEARED BY ROUTINE 
6191 S CALLING SEQUENCE: 
619 : JSR PC,DVRXQ 
619 << 
6194 
6195 
6196 035170 DVRXQ: 
6197 035170 032737 000004 006602 BIT WORX, FLAG sARE WE RECEIVING ? 
6198 035176 001434 BEQ NO, BRANCH 
6199 035200 042737 000444 006602 BIC #ORX+#BCC+#RXM, FLAG i CLEAR FLAG FOR RX 
6200 035206 005737 011522 TST RNOD ire P MODE ? 
6201 035212 001415 BEQ DVRX BRANCH 
6202 035214 032737 000440 006602 BIS #RXM+ABCC FLAG GET JUST THE DATA NO CRC. 
6203 035222 01 006470 011510 MOV DVRXA, RMSGPT RECEIVE DATA BUFFER ADDRESS 
6204 035230 12 7 000072 O11512 MOV #72 RASGCC ?SET UP RX TO GET ITEP MSG. 
6205 0352 012737 000070 00647 MOV #70, DVRCC 
6206 035244 BR DVRX3 
6208 yENABLE RX, RX INTERRUPTS,AND DATA SET INTERRUPTS 
£596 035246 012737 002657 011510 DVRX2: MOV #RHDMSGe RMSGPT :SETUP RX BUFFER ADDRESS 
6211 035254 013737 002654 011512 MOV HDMC ,RMSGCC “SETUP CHARACTER COUNT 
1 035262 052777 000560 154160 DVRX3: BIS PRINTEN!RXENA!ADSITEN!#SIRIP, @RXCSR ;ENABLE RECEIVER 
6213 035270 000207 DVREX: RTS PC :RETURN TO CALLER 
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CZDCLA_DUP=11 DATA com LINK TEST MACY11 a. stice taka 16:47 PAGE 155 
CZDCLA.P11 19-MAR=82 18:19 EVICE TRANSMIT AND RECEIVE SUBROUTINE 


-SBTTL DEVICE TRANSMIT AND RECEIVE SUBROUTINE 


SEQ 154 


:++ 
; FUNCTIONAL DESCRIPTION: 
3 DVTXRX=DEVICE TRANSMIT AND gy tT ROUT INE 
THIS CODE QUES THE TRANSMIT BUFFER TO THE DEVICE 
IF NEEDED. THE ya ER OR BS a F 
RX COMPLETE OR BOTH. THE CODE REPORTS A TIME OUT 
ERROR IF NO OUTPUT INTERRUPT IS RECIEVED BEFORE 
60 SECONDS. AFTER REPORTING ERROR TIMER IS RE STARTED 
AND DEVICE WILL CONTINUE TO WAIT FOR INTERRUPT. 


— 3) ts ed 
=—O0ONOuw 


PWLELLLALLELLLLLLLT 
NOUSWI 


28 3 INPUTS: - 
29 : DVTXA" = ADDRESS OF TRANSMIT MSG. 
30 : “DVTCC’’ = BYTE COUNT OF T 1 
31 ; NQTX'' BIT = SET IF TRANSMIT REQUESTED 
32 : 'ETX'’ BIT = SET IF TRNASMIT EXPECTED 
33 > “ERX' BIT = SET IF RECIEVE EXPECTED 
6235 :OUTPUTS: > 
6236 : ‘ ** = ADDRESS OF TX MSG. COMPLETED 
6237 : DvTCC = BYTE COUNT OF TX MSG. COMPLETED 
6238 : “QTX’’ == SET IF TX COMPLETED 
6239 : “DVRXA': = ADDRESS OF RX MSG. COMPLETED 
6240 ; “DVRCC’* = BYTE COUNT OF RX MSG. COMPLETED 
6241 : ‘ORX’’ = SET IF RX COMPLETED 
6242 : 
6243 : 
6244 t SUBORDINATE ROUTINES USED: 
6246 ; “LGDVE"’ = LOG DEVICE ERROR TO EVENT LOG 
6248 : CALLING SEQUENCE: 
6249 : JSR PC. DVTXRX 
ra aii 
6252 035272 032737 000010 006602 DVTXRX: BIT #OQTX. FLAG sANY TX TO QUE 2(ARE WE TRANSMITTING?) 
6253 035 00144 BEQ V NO 
6254 035302 042737 901030 006602 BIC #OTX+#TXM+PAD FLAG [CLEAR 
6255 035310 004737 05657 JSR PC,CTSSR :60 SET rt ¢ 
6256 035314 005737 01152 TST RNODE SREMOTE NODE = ITEP ? 
57 035320 90141 BEQ DVTR1 :NO, BRANCH 
58 035322 36730 9000 0 006602 BIS #TXM, FLAG XONLY DATA MESSAGE 
6259 035330 4 011500 MOV DVTXA,MSGPTR ‘MESSAGE ADDRESS 
6260 035336 013737 006456 011502 MOV DVTCC LMSGCC “MESSAGE CHAR COUNT 
6261 035344 BR DVTR : 
6268 ZENABLE TX AND TX INTER. 
6264 035346 112737 000201 002645 DVTR1: MOVB #201,HDMSG+1 :SET UP SOH 
6265 035354 oI 737 002645 011500 MOV #HDMSG+1 ,MSGPTR [SET POINTER TO HEADER 
6266 055362 13737 56 2646 MOV DVTCC DACC 
6267 035370 013737 002654 O11 0 MOV DMC .ASG :SET CC FOR HEADER 
6268 035376 012737 177 011504 DVTR2: MOV Nn? aT td: :SET UP FOR 177 SYNCS. 
6269 *(SO MANY SYNCS ARE NECESSARY 
6270 ts1F THE OTHER NODE HAS A 
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SEQ 155 
CZDCLA bup-11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 156 
CZDCLA.P1 19-MAR-82 18:19 DEVICE TRANSMIT AND RECEIVE SUBROUTINE 
$e? s:eSLOWER CPU.) 
6278 035404 052777 000120 154044 BIS WSEND!ATINTEN,@TXCSR =; TURN ON TX 
6273 035412 012737 000074 006646 DVTR3: MOV #60. , TIMERS :SET TIMER FOR 60 SECS 
6277 035420 DVTR8: BREAK 
6278 035420 104422 TRAP  C$BRK 
6279 035422 005737 006646 TST TIMERS :1S TIMER EXPIRED 
6280 035426 001022 BNE TOINOT 
628 :LOG ERROR TIME OUT RX OR TX NOT COMPLETED 
6284 035430 012737 017110 006540 MOV #DVEM2, TEMP2 
6285 035436 017737 154006 006542 MOV @RXCSR, TEMPS 
6286 035444 017737 154006 006544 MOV @TXCSR, TEMPS 
6287 035452 004737 020162 JSR PC, LGDVE 
6288 035456 005237 006506 INC ERRCNT 
6289 33462 ERRSOFT 7,DVEM2,ERR13 
6290 035462 104457 TRAP  CSERSOFT 
6291 035464 000007 .WORD 7 
6292 035466 017110 WORD DVvEM2 
6293 035470 017636 ;WORD ERR 
6294 035472 000747 BR DVTR3 zRETURN TO CHECK TIMER 
6296 035474 032737 000010 006602 TOINOT: BIT #QTX,FLAG :1S IT TX COMPL? 
6297 035502 001406 BEQ DVTR4& ‘BRANCH IF TX NOT DONE. 
035 004737 037010 JSR PC,CLRRTS 
6299 035510 032737 000100 006602 BIT WERX, FLAG zARE WE EXPECTING TO RX 
6300 035516 001416 BEQ DVTREX ‘BRANCH IF NOT. 
6302 035520 032737 000004 006602 DVTR4: BIT WORX, FLAG z1S RX DONE 
6303 035526 001734 BEQ DVTR8 :G0 BACK AND TIME IF NOT 
6305 035530 032737 000200 006602 BIT #ETX, FLAG sARE WE EXPECTG TO TX. 
6306 035536 001406 BEQ DVTREX SBRANCH IF NOT. 
6308 035540 032737 000010 006602 BIT #OQTX,FLAG z1S IT TX COMPLETED 
6309 035546 001724 BEQ TR :GO BACK AND TIME OUT 
6310 035550 004737 037010 JSR PC,CLRRTS [CLEAR RTS IF NESC. 
6311 035554 000207 DVTREX: RTS PC SAND EXIT 


CZDCLA_DUP=11 DATA COMM. LINK TEST 
CZDCLA.P11 1 82 18:19 


ne 35556 

5 5556 

360 055360 153664 011474 

1 2259 d00010 006376 
35 

6 557 002000 006602 

5 011474 
6 





011474 01147 
106761 11273 
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MACY11 30A(1052) 23-MAR=82 16:47 PAGE 157 
DEVICE TRANSMIT AND RECEIVE SUBROUTINE 


3 DEVICE DEPENDENT SUBROUTINES 


SEQ 156 


- SBTTL DEVICE INTERRUPT SERVICE ROUTINES 


* FUNCTIONAL DESCRIPTION: 
RECEIVER INTERRUPT ROUTINE. we A RX a. OCCURS 
THIS ROUTINE DECIDES IF IT IS A 
CHANGE OR DATA INTERRUPT. IF IT a3 ", DATA SET CHANGE 
INTERRUPT IT PUTS THE STATUS IN ~ COMPARES 
THAT STATUS TO THE OLD STATUS IN ‘MODS*’. IF THEY ARE 
THE SAME THAT MEANS THE INTERRUPT WAS CAUSED BY GLITCH 
ON ONE OF THE LINES. IF THEY ARE DIFFERENT THEN A_HARD 
ponte cis k re OCCURED. IN ANY EVENT THE MODEM STATUS 
IF A DATA_INT. OCCURS THE a AL gt THE DATA AWAY 
N A _BUFFER POIN TO BY *'RMSGPT Ri Th venO-d 

Pe CREATED BY od BYTE. IF COUNT IS E ene o 


ils ASET 
BUT ‘RXM"* BIT IS “NOT, SET THEN MSG COUNT 7g° ser TO LENGHT 
ite Ra AND "'RMSGPT"’ IS SET TO RX BUFFER LOCATION 


IF COUNT IS EQUAL TO. ZERO AND *BCC** IS NOT SET THEN 
COUNT IS SET TO 2 AND ''RMSGPT’’ IS SET TO ‘BCCW"’ AND 
"BCC’’ BIT IS SET. 


yt THE OVERRUN ERROR BIT IS SET THEN 
AN ERROR IS LOGGED AND ‘‘QRX’’ IS SET AND THE RX IS DISABLED. 


INPUTS: 
RMSGPT = ADDRESS OF RX BUFFER 
RMSCC = COUNT OF DATA TO BE RXED. 


SUBORDINATE Roy res USED: 
Sc - LOG MODEM STATUS CHANGE 


Oats - LOG DEVICE ERROR 
BGNSRV DVRXI 
DVRXI:: 
MOV R2,-( SAVE R2 
MOV ReecsR. IRXCSR zHOV RX CSR TO IMAGE 
BIT #MOCHK «PARAM Y MODEM CHANGES TO REPORT 
BEQ RXIN21 a3 NOT IGNORE DS CHANGE. 


BIT note 3 INIT OVER 
1 NO THEN IGNORE DS CHANGE. 


1 31F DATA SET CHANGE ; na SET BR 
MOV pm R,CMODS 3MOV THE NEW MODEM STATUS IN 
BIC 61,CMODS CLEAR BITS NOT RELATING TO MODEM STATUS 


B 13 





SEQ 157 
CZDCLA DUP=11 DATA C LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 158 
CZDCLA.P11 nate is uy DEVICE INTERRUPT SERVICE ROUTINES 
Bee toesed RXIN2: MOV CMODS, TEMP3 
yee MOV MODS, TEMP4 
2644 5 CMP TEMPS , TEMPS :COMPARE OLD TO CURRENT 
316 BEQ 10$ 31NC GLITCH COUNT 
28 ; 011520 INC MHRCNT NC HARD COUN 
9 5660 01 f 16717 006540 mov #HRDMSG, TEMP? ?SET UP HARD MESG. 
9 2088 36 7 011516 10$: INC MGLCNT ZINC GLITCH COUNT 
5674 12737 016671 006540 MOV WGLMSG,TEMP2  :SET UP GLITCH 
035702 7 020336 RXIN1: JSR PC, LOGMSC :G0 LOG MODEM STATUS CHANGE 
035706 013737 011472 007556 MOV CMODS ,MODS *MOVE CURRENT TO OLD 
STEST FOR DATA 
035714 032737 000200 011474 RXIN21: BIT WRXDONE,IRXCSR :RX DONE ? 
6384 035722 001540 BEQ RXINEX :NO, BRANCH 
035724 017737 153524 011476 MOV @RXDBUF,,IRXDBUF :READ DATA 
035732 032737 100000 011476 BIT #RERR, ROU RADDUF ZOVERRUN ERROR ? 
035740 001055 BNE RXIN3- YES BRANCH 
89 :GET HERE WITH GOOD DATA 
035742 013702 011510 RXING: MOV RMSGPT ,,R2 :SET RX MESSAGE POINTER 
035746 113722 011476 MOVB  IRXDBUF,(R2)+  :STORE DAT. 
035752 010237 011510 MOV R2,RMSGPT + SAVE UPDATED MESSAGE POINTER 
96 035756 005337 011512 DEC RMSGCC zALL DATA RECEIVED ? 
035762 001120 BNE RXINEX : H 
035764 032737 000400 006602 BIT #BCC.FLAG SCHECK CRC ? 
035772 001426 BEQ RXING : YES BRANCH 
035774 032737 010000 011476 BIT #CRCOK,IRXDBUF CRC’ GOOD ? 
9 2 001056 BNE RXINS YES, BRANCH 
013737 011476 006542 MOV IRXDBUF,TEMP3 SET UP TO 
03601 013737 011474 006544 MOV TANCeR, TEMP4  3:LOG AND 
6404 036020 012737 017205 006540 MOV #DVEM3.TEMP2 ::;PRINT CRC ERROR 
036026 004737 920162 JSR PC LGDv VE :LOG ERROR 
6406 036032 005237 506 INC ERRCNT [BUMP COUNT 
036036 ERRSOFT 8,DVEM3,ERR13 PRINT ERROR TO USER 
6408 036036 10445 TRAP 4 
6409 03604 10 
6410 03604 iteths vENS 
aL 36044 017636 ORR 
eit§ 036046 000463 BR RXINB :DISABLE INTERRUPTS AND EXIT 
6415 >::IN ORDER TO CHECK CRC, WE MUST READ 2 MORE CHARACTERS(CRC) 
6416 036050 052737 000400 90660 RKIN6: BIS WBCC,FLA AG :SET CRC ALREADY CHECKED FLAG 
6417 036056 012737 2 01151 #2,RASGC [COUNT TWO CHARACTERS 
6418 036064 012737 011514 01151 MOV weccu, RASGPT [CRC STORAGE ADDRESS 
6419 036072 000454 BR RXINEX TEXIT 
6421 
e132 036074 RXIN3: ;LOG OVERRUN ERROR 
re 036074 012737 017246 006540 MOV ADVEMG , TEMP2 


C 13 
SEQ 158 


CZDCLA 11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 159 
cHBeLA PHY 1DeMARCSO 18:19 DEVICE INTERRUPT SERVICE ROUTINES 
6425 036102 013737 011476 54 MOV IRXDBUF , TEMP3 
64 6 19% 133 7 011474 Hiertd MOV IRXCSR, TEMPG 
64 118 737 0168 JSR PC, LGDVE 
6428 1 5237 5 INC ERACNT 
6429 036126 ERRSOFT 9,DVEM4,ERR13 
64 126 104457 TRAP CSERSOFT 
6431 1 11 .WORD 
64 1 17246 “WORD  DVEM4 
6433 0361 17636 “WORD ERR13 
64 4 036136 000424 BR RXIN7 
6436 036140 032737 000040 006602 RXINS: BIT #RXM, FLAG z1S THE RX M BODY BIT SET 
64 036146 0010 9 BNE RXIN? :IF YES THEN ALL DONE 
6438 03615 09 737 000040 00660 BIS #RXM, FLAG 
6439 036156 737 000400 00660 BIC #8CC FLAG ZCLEAR BCC AND SET RXM 
6440 0361 1 30 70 011510 MOV DVRXA.RMSGPT § :MOVE ADDRESS TO POINTER 
6441 036172 013737 660 011512 MOV RHDMCC,RMSGCC :MOVE THE CHAR T IN 
G4te 036200 013737 002660 7 MOV RHDMCC.DVRCC :SET THE CC TO AMOUNT IN HEADER 
6443 036206 000406 BR RXINEX SAND FINISH. 
ccs 036210 052737 000004 006602 RXIN7: BIS WORX, FLAG zSET MESSAGE RECEIVED IN FLAG 
6447 036216 042777 000120 153224 RXINS8: BIC WRINTEN+RXENA,@RXCSR =; CLEAR_INTAND RX ENABLE 
6449 036224 012602 RXINEX: MOV (SP)+,R2 :RESTORE R2 
6450 036226 ENDSRV 
6451 036226 


110020: 
RTI 
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CZDCLA 11_DATA com. Lax TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 160 
CZDCLA.P1 19-MAR=82 18:1 DEVICE TRANSMIT INTERRUPT ROUTINE 


6453 -SBTTL DEVICE TRANSMIT INTERRUPT ROUTINE 


SEQ 159 


$ FUNCTIONAL DESCRIPTION: 
DEVICE TRANSMIT INT. ROUTINE 


WHEN A_ TRANSMIT ee EMPTY CAUSES AN INTERRUPT TO OCCUR 


THE PROGRAM COMES TO THIS ROUTINE. 
y aa 5 SYNC COUNT syncc' IS NON ZERO TSOM IS SET 
A_SYNC CHAR IS LOADED TO TXDBUF AND THE SYNC COUNT IS 


DECREMENTED. 


IF = SYNC rt! 3 ane TSOM AND TEOM ARE RESET 
AND THE ‘PAD"* BIT FLAG WORD IS CHECKED IF Le +. 
SET THEN A PAD(377) NCHAR IS LOADED TO TXDBUF AND 
INTERRUPT ENABLE IS CLEARD. 


Seigorenesoncser 


6470 : IF THE SYNC COUNT IS ZERO AND THE PAD’ FLAG IS 
6471 : CLEAR THEN A BYTE IS PUT IN TXDBUF FROM THE ADDRESS 
6478 : IN MSGPTR AND THE MSG COUNT IS DECREMENTED 
6474 : IF THE MSG COUNT GOES TO ZERO THE sD BIT IS 
6475 : CHECKED IF IT IS SET THE PAD’ FLAG IS SET 
6476 : IF IT IS CLEAR THEN IT GETS SET AND WeePTh 1S 
6477 : LOADED WITH THE ADDRESS OF TXBUFF AND THE MSG 
6478 . COUNT IS LOADED WITH THE COUNT OF THE MSG TO 
6479 : BE TRANSMITTED. 
6481 : INPUTS: 
6482 ; MSGPTR = IS SET TO THE ADDRESS OF THE MSG oR HEADER TO BE TX'D 
648 : MSGCC = IS SET TO THE COUNT OF MSG TO BE TX'D 
6484 t OUTPUTS: 
6485 : QTX = THIS BIT IS SET WHEN MSG IS TX"D OK. 
gras — 
6488 036230 BGNSRV DVTXI 
6489 036230 DVTXI:: 
6490 036 30 o0868s MOV R2,-(SP) :SAVE R2 
6491 036232 011504 TST SYNCC SANY SYNCS TO SEND 
6492 0 36 BEQ TXINI tIF NOT GO TO 
6493 03626 0137 011506 153212 MOV SYNCW,@TXDBUF  :ELSE SET TSOM AND SYNC WORD 
649% 0 005337 DEC SYNCC 3DEC SYNC COUNT 
6495 0 5 00106 BNE TXINEX F NOT ZERO EXIT 
6496 2 001000 006602 TXIN1I: BIT #PAD, FLAG 318 THE PAD BIT SET 
649 036 62 001414 BEQ THING 760 TO 2 IF NOT SET 
64 1 377 lai MOV XDBUF — :LOAD FF To TX DATA REG. 
6499 0 042777 120 153156 BIC srhatenteen, aTxesR LEAR TX INT ENABLE 
6500 036 00 937 106 so INC TXREADY L pros FOEOL OL MODULE WE'RE DONE 
630 052737 1 BIS #OTX-ELAG ‘Ser THE TX COMPLETE 
6303 ie if 373 011502 TXIN2: Ist tALL DATA SENT ? 
6505 5 3$ 556 CLR DATAWORD 7BE SURE ITS CLEAR 
6906 $s 13 115 MOV MSGPTR R2 [LOAD Re WITH TX BUFFER POINTER ADDR. 
6907 36332 182 5 26 MOVB  (R2)+,DATAWORD PUT DATA I Y 
010237 0115 MOV R2,MSGPTR *RESTORE UPDATED POINTER 
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SEQ 160 
CZDCLA_DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 161 
199mAR-B2 18:19 


CZDCLA.P11 DEVICE TRANSMIT INTERRUPT ROUTINE 
6 . a 556 153110 MOV DATAWORD ,@TXDBUF ;HI BYTE he ont LO BYTE = DATA 
6510 2 337 01150 DEC MSGCC ;BUMP CHAR C 
6511 4 4 BR TXINEX 
651 56 153074 TXIN4: MOV thd gana SEND CRC_CHARACTER 
651 032737 006602 BIT #TXM, FLAG 1S THIS THE END OF DATA MSG. 
651 8 $e ie s1F SO SET THE PAD BIT 
6515 74 os 8 OE BIS #TXM,FLAG 31F NOT T END OF HEADER 
6516 0 96 13737 MOV DVTXA,MSGPTR :$0 SET UP a FOR MSG 
6517 03641 13737 011502 MOV DVTCC,MSGCC AND THE CC F ° 
6518 0 38 BR TXINEX 
eat 0 27 006602 TXIN3: BIS #PAD ,FLAG sSET THE PAD BIT 
$36) 036468 012602 TXINEX: MOV (SP)+,R2 sRESTORE R2 
593 036430 wie L10021 
6524 $36¢30 000002 RTI 


F 13 


_ $EQ 161 

CZDCLA 11 PATA, c sgt ink TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 162 
CZDCLA.P1 219 DEVICE TRANSMIT CONTROL MSG 

65 5 »SBTTL DEVICE TRANSMIT CONTROL MSG 

6527 +¥ FUNCTIONAL DESCRIPTION: 

65 : THIS R OUT INE DOES THE FOLLOWING 

65 : UES A RX SPACE AT RHDMSG+1 

65 : S A TX MSG FROM HDMSG+1 

6531 : CHECKS FOR A TIMER EXPIRED 

65 ; IF EXPIRED RETURN TO CALLER 

653 ; ELSE CHECK FOR A TX One COMPLETED 

65 : F TX COMPLETED CHECK FOR RX COMPLETED 

6535 ; ELSE RECHECK TIMER AND TX COMPLETED UNTIL 

65 ; EITHER TX COMPLETE OR TIME OUT 

6537 ; IF TX COMPLETE AND RX NOT COMPLETE THEN 

6538 : REQUE TX MSG. 

6339 ; ELSE IF RX COMPLETE RETURN. 

6541 : INPUTS: 

654 : TXM = SET IN FLAG WORD 

6943 ; HDMSG+2 - TYPE OF CONTROL MSG.. 

6545 3 SUBORDINATE ROUTINES USED: 

6546 : “CLRRTS' = CLEAR REQUEST TO SEND IF HALF DUP. 

6547 : CALLING SEQUENCE: 

6548 : JSR PC,DVIN31 

6549 : RETURN: 

6930 : RETURN TO CALLER IF SOMETHING RX"D OR TIMER OUT. 

ss m 

6354 036432 042737 000404 006602 DVIN31: BIC #ORX! #BCC, FLAG ZCLEAR RX COMPLETE & CRC ALREADY CHECK 

6556 036440 012737 002657 011510 MOV #RHDMSG+1 ,RMSGPT :SET UP POINTER 

6997 036446 013757 002654 011512 MOV HDMC ,RMSGCC ZAND CC 

6559 

660 036454 052777 000560 152766 BIS WRINTEN!RXENA!DSITEN!STRIP,@RXCSR TURN ON RX 

6962 :SET UP TXMITTER TO SEND 

6564 0 004737 03657 DVIN32: JSR PC,CTSSR :SET RTS . 

6565 9 737 00101 906602 BIC #OTX! PAD, FLAG SCLEAR TX COMPT FLAG. 

6 36474 012737 002645 0115 MOV #HDMSG+1 .MSGPTR *MOVE THE CURRENT POINTER TO MSGPTR. 

656 03650 or 737 002654 011508 MOV HDMC ,MSGCC 

6568 03651 127 ? 1 11506 MOV #8.,SYNCC :SET UP SYNC COUNT 

6369 036516 05 000120 152732 BIS #SEND! TINTEN, @TXCSR STURN ON TX 

6371 :NOW WAIT FOR TIME OUT OR TX COMPLETE 

$378 036524 DVIN35: BREAK 

6574 036524 104422 TRAP  CSBRK 

6575 0365, 5737 006646 TST TIMER 31S IT TIMED OUT 

6976 5 14 9 BEQ DVI TIF YES EXIT 

65 365 507 000010 006602 BIT #OTX. FLAG *IS TX DONE 

oore Oacee 37010 Bee OWING Og TEAR RTS TFLHALY DUPLEX © 

6580 036550 O04787 833000 006536 MOV 3 TEMP SWAIT FOR RX TO COMPLETE 
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CZDCLA_DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052) 23=MAR-82 16:47 PAGE 163 
CZDCLA.P11 19-MAR=82 18:19 DEVICE TRANSMIT CONTROL MSG 


es sie 
ie He 
65 2 


84 
6585 
6586 


5 3 006536 DVIN36: DEC TEMP1 3BUMP_COUNT 
i BNE 3D0_IT AGAI 
1 


DVIN36 N 
3 000004 006602 BIT #ORX, FLAG !DID WE RX ANYTHING 
2 7 EQ DVINS2 SIF NOT RETRANSMIT LAST 
74 20 DVIN34: RTS PC [RETURN TO CALLER 
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SEQ 163 
CZDCLA DUP=11 DATA C LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 164 
CZDCLA.P11 19-MAR-82 18:19 DEVICE RTS TO CTS DELAY 
6587 »SBTTL DEVICE RTS TO CTS DELAY 
6289 ¥ FUNCTIONAL DESCRIPTION: 
65 : CTSSR=-THIS ROUTINE SETS REQUEST TO SEND TO MODEM 
6591 : AND CHECKS FOR CLEAR TO SEND 
659. : IF CTS DOES NOT COME BACK BEF ORE TIMER EXPIRES 
659 : AND ERROR IS REPORTED AND WE TRY AGAIN. 
6594 ; THE ROUTINE IS SKIPPED IF THITERNAL LOOP IS SET. 
6596 ; 
e344 3:2 OUTPUTS: 
6599 t SUBORDINATE ROUTINES USED: 
6600 : “LGDVE" = LOG DEVICE ERROR 
6601 + CALLING SEQUENCE: 
6608 : JSR PC,CTSSR 
660 i-- 
pet B08 
6606 036576 022737 000001 006572 CTSSR: CMP #1,MLTYP z1S THIS TTL LOOP 
6608 036604 001500 BEQ DVTXRO :BR IF YES 
69 zSET RTS AND WAIT FOR CTS 
612 032737 004000 006602 DVTXR3: BIT #FIRST.FLAG 
6613 036614 001014 BNE CTSS zIF NOT FIRST TIME SKIP DELY 
6614 036616 012737 177777 006534 MOV #-1, TEMP 
Sig 9 4% 005237 006534 CTSS4: INC TEMP 
6617 0 1044 TRAP SBRK 
Géie O5s68e 0787 006554 Ts Tene, Parte can 
6620 036640 $e 348 004000 00660 BIS ar inst FLAG. iSET FIRST FLAG. 
1 036646 01 03 001 006642 (CTSS3: MOV #1000, TIME :SET UP TIMER, ,FOR 1000 TICKS 
g 036654 00 7 006574 TST MDPLX [FULL DUPLEX 
036660 001 12 BNE crs YES BRANCH 
6624 036662 004 035152 10$: CALL = DVMODS [GET MODEM STATUS 
5 0 32737 010000 007556 BIT #DCD, MODS [CARRIER DETECTED? 
036674 1404 BEQ CTSS? 7NO, BRANCH 
0 76 0037 7 006642 TST TIMER :TIME DONE ? 
B 036702 001417 BEQ DVTXR4 [YES ,BRANC 
6629 0 7 0$ :TRY AGAIN 
6631 036706 052777 152534 CTSS7: BIS #RTS ARXCSR :SET REQUEST TO SEND 
6652 Gseres 6 737 $0986 006642 eel MOY #1000.,TIMER1 :SET UP TIMER 
6634 36 104422 TRAP  CSBRK 
6635 036724 032 020000 152516 BIT #CTS,@RXCSR z1S CLEAR TO SEND BACK 
036 10 3 BNE DVTXR1 *BR. IF CTS IS SET 
6637 036 005 006642 TST TIMER1 TELSE TEST IF TIME EXPIRED 
6658 036740 301370 BNE DVTXR2 [BR IF TIME NOT EXPRIED. 
6640 7SET ERROR FOR NO CTS 
6642 036742 012737 017026 006540 DVTXR4: MOV #DVEM1, TEMP2 
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SEQ 164 

CZDCLA 11_ DATA om L 5 TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 165 
CZDCLA.P1 esate 3. 8: DEVICE RTS TO CTS DELAY 

6643 036750 474 O063h¢ MOV @RXCSR, TEMPS 

6644 756 He ? : ae 54 MOV @TXCSR, TEMPS 

6645 7 5 ie JSR PC, LGDVE 

$548 770 506 INC ERRCNT 

664 774 ERRSOFT 6 DVERT -ERR13 

6648 036774 104457 TRAP CSERSOFT 

6649 03677 - WORD 

6650 037 4 oge -WORD DVEMI 

6651 037002 (C176 -WORD ERR13 

6652 037004 000700 BR DVTXR3 sTHEN TRY TO SET RTS AGAIN 

6653 037006 DVTXR1: 

6654 037006 000207 DVTXR9: PTS PC : 


CZDCLA 


11_DATA COMM. LINK TEST 


CZDCLA.P1 


6655 
66 

663? 
6658 
6659 


6667 


6669 
6670 
6671 
667. 
667 
6674 


SReeaeoS 


037010 
037010 
0 ele 


037050 


19=MAR-82 


18:19 


037132 
006574 


152426 
001000 


000004 


006540 
006540 


152400 


J 


13 
SEQ 165 


MACY11 30A(1052) 23-MAR-82 16:47 PAGE 166 


oSBTTL 


DEVICE CLEAR 
DEVI 


" FUNCTIONAL D DESCRIPTION: 


; IN_HALF 
; CALLING SEQUENCE: 
: JSR 


CLRRTS: 


20S: 


DVTRS: 


ROUTINE CLEARS 
DUPLEX 

PC, CLRRTS 

MPPTP 

20$ 

FHDPLX 

DVTR 

grxces tees 

#TXACT, TEMP. 


2 
#RTS ,ARXCSR 
PC 


REQUEST TO SEND 
CE CLEAR REQUEST TO SEND 


REQUEST TO SEND IF 


MODE OR MULTI-POINT. (WITH PROTOCOL) 


:MULTI-POINT 2 ? 
1S Ith FULL DUPLEX 
:BRANCH IF YES 
[GET RX STATUS 
TALL DATA SENT ? 


I 
=CLEAR REQUEST TO SEND 
SRETURN TO CALLER 


CZDCLA_DUP-11 DATA on LINK TEST 


CZDCLA.P11 


037052 


037054 
037056 


037060 
037061 
03706 

03706 

037064 
037065 
037066 
037067 


037070 
037071 


03707 
03707. 


19=MAR= 


000000 


S8 83 83 88 & 828 


18:19 


K 13 
MACY11 30A(1052) 23-MAR-82 16:47 PAGE 167 
DEVICE CLEAR REQUEST TO SEND 
-SBTTL DDCMP PROTOCOL MODULE 


ITITITIT IIL TIT TI ITT Litt iT iti rt iti itiit ii ii tit ii iii ii titi iti tt itii tii iis 


3 DCLT DDCMP PROTOCOL MODULE 


-EVEN 
33 LOCAL STORAGE 


33 TABLE OF ae exh AND ERRORS 
333 NOTE: KEEP THE VARIABLES TOGETHER AND IN SEQUENCE 


see OTHERWISE THE RPT> ROUTINE WILL PRINT WRONG INFO. 
PRSTAT: .WORD 0 sSTATUS FLAGS 
:BITO = BCCOk 


3B1T11 =SSTART 
TMESTX: .WORD 0 3 TOTAL DATA MESSAGES TRANSMITTED(16 BIT COUNTER 
TMESRX: .WORD 0 TOTAL DATA MESSAGES RECEIVED(16 BIT COUNTER) 


N: -BYTE 0 3# OF HIGHEST SEQUENTIAL DATA MESSAGE TRANS 
ee aie BY THIS STATION 


A -BYTE 0 = OF THE HIGHEST SEQUENTIAL DATA MESSAGE 
HAT HAS BEEN ACKNOWLEDGE TO THIS STATION 
T -BYTE 0 3# OF THE NEXT DATA MESSAGE TO BE TRANSMITTED 
Xx -BYTE 0 LAST MESSAGE NUMBER TRANSMITTED 
R: -BYTE 0 sLAST MESSAGE RECEIVED 
TRIBN: .BYTE 0 ;TRIB ADDRESS PT TO PT = 1 
ERROR COUNTERS 
REMTMO: -BYTE 0 ag Hy REPLY TIMEOUTS(ACKS SENT NUM=R) 
GLOBCC: .BYTE 0 GLOBAL CRC ERRORS 
REANAK: .BYTE 8 REASON FOR_LAST NAK SENT 
SELTHER: .BYTE ZSELECTION THRESHOLD ERROR 
RXTHER: .BYTE 0 RECEIVE THRESHOLD ERRORS 


TXTHER: .BYTE 0 3 TRANSMIT THRESHOLD ERRORS 


SEQ 166 


CZDCLA_DUP=11 DATA om LINK TEST 


CZDCLA.P11 


037074 
037075 


037076 
037077 


03710C 
037101 


0371092 
037103 


037104 
037105 


037146 
037150 


19=MAR 


st gon OB 


18:19 
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MACY11 30A(1052) 23-MAR-82 16:47 PAGE 168 
DDCMP PROTOCOL MODULE 


DEROUT: .BYTE 0 zDATA ERRORS OUTBOUND (NAKS RECEIVED 
OUTMASK: BYTE 0 t; REASONS = 1,2,0R 
tMASK VALUES << ~<"6iTo 4 HEADER CRC ERROR 
: = DATA FIELD CRC ERROR 
\ : -- =: BD = REP RESPONSE NUM<>R 
DERIN: .BYTE 0 sDATA ERRORS NROUND (NAKS TRANSMITTED 
INMASK: .BYTE 0 REASONS = 
tRASK VALUES -< “gito = HEADER CRC ERROR 
; -- = DATA FIELD CRC ERROR 
; -- ee = REP RESPONSE NUM<>R 
LBUFER: .BYTE 0 ;LOCAL BUFFER ERRORS (NAKS SENT 
LBMASK: .BYTE 0 +; REASONS = 8. 
“MASK VALUES -- BITO = BUFFER NOT AVAILABLE 
: == BIT1 = MESSAGE TOO LONG 
RBUFER: .BYTE 0 ;REMOTE BUFFER ERRORS (NAKS RECEIVED 
RBMASK: .BYTE 0 SREASONS 8. OR 
[MASK VALUES == BITO = BUFFER NOT AVAILBLE 
: -- BIT] = MESSAGE TOO LONG 
RMSTER: .BYTE 0 :REMOTE STATION ERRORS (NAKS RECEIVED 
RMMASK: .BYTE 0 SREASON 9. OR 17.) 
SMASK VALUES-= BITO = RECEIVER OVERRUN 
; BIT1 = FORMAT ERROR 
LOSTER: .BYTE 0 ;LOCAL STATION ERRORS (NAKS SENT 
LSMASK: .BYTE 0 REASON 9. OR 
tMASK VALUES == B170 = = RECEIVER OVERRUN 
: - BIT1 = FORMAT ERROR 
RXTXTE: .WORD 0 :RX AND TX THRESHOLD ERRORS (OVERFLOWS) 
SPAREO: .BYTE 0 
SPARE1: .BYTE 0 
PROEND: :WORD 0 ZEND OF PROTOCOL COUNTERS 
IMFLAG: .WORD 0 ZIMAGE OF MAIN CODE FLAG WORD 
RXPRC: WORD 0 t=1 = MESSAGE RX'ED & ACK’ SENT 
TXPRC: .WORD 0 3-1 = MESSAGE TX°ED & "ACK" RECEIVED 
ASTRT: WORD 0 t-1 = STACK SENT 
TXREADY : . WORD 1s READY TO SEND ANOTHER MESSAGE 
PRUN: .WORD + 1 = PROTOCOL RUNNING. USED IN THIS MODULE 
MPPTP: -WORD : 1 = MULTI POINT TWORK 
SELECT: .WOR + 1 =THIS STATION CAN NOW TRANSMIT (HALF /DUPLEX) 
IMPRSTAT: “ORD 0 + COPY OF PROTOCOL STATUS 
PRFLAG: -WOR ; USED 10. COMMUNICATE WITH RX INTER. ROUT INE 
HDXMTP: -WOR :1: LEX OR MULTI-POINT 
PRTEMP: -WOR : Y WORK LOCATION 
TURNON: .WOR : 1 = RECEI VER Is ALREADY ON 
TIMEOUT:  OORD 0 + 20 = PRINT "TX OR RX NOT COMPLETE’ 


SEQ 167 
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CZDCLA_DUP=11 DATA mn LINK TEST MACY11 30A(1052) TY ali 16:47 PAGE 169 
CZDCLA.P11 19=MAR=82 18:19 DDCMP PROTOCOL MODULE 


33 NAK REASONS VALUES AS USED IN NAK CONTROL MESSAGES 


1 HEADER BCC ERROR 
3DATA BCC ERROR 
ee A 


SPONSE 

10 vee Ona NOT AVAILABLE 
11 RECEIVER OVERR 

0 3MESSA GE TOO CONG 

1 HEADER FORMAT ERROR 


33 ADDITIONAL NAK BIT MASKS AS USED IN COUNTERS 


REPMSK = BIT2 sREPLY RESPONSE 
sRECEIVER OVERRUN 
T ERROR 


{MESSAGE TOO LONG 
NAMSK = BITO BUFFER NOT AVAILABLE 


33 MESSAGE TYPE DEFINITIONS 


SOH = 201 3DATA_MESSAGE 
MAINT = 144 ;MAINTENANCE MESSAGE 
ENQ = 5 sCONTROL MESSAGE 


33SUBTYPES OF CONTROL MESSAGES 


sACKNOWLEDGE MESSAGE 
ZNEGATIVE ACKNOWLEDGE MESSAGE 
REPLY TO MESSAGE NUMBER 
ZSTART MESSAGE 

sSTART ACKNOWLEDGE MESSAGE 


es 


zzSTATUS WORD BIT DEFINITIONS 
BCCOK = Bird. sBCC CHECKED GOOD 
BCCBAD = B BCC CH og ED BAD 
SACK = Bite SEND A 


SNAK = BI : 
SDATA = BIT4 
RXD = BIT6 


85 85 85 8s bo 00 & 00 bo bo 
ee ed ed ed ed ed dd 
WOONAULSWN © 


8 


3SEND DATA 
RECEIVER DONE 
NAKRX = BIT8 sNAK_ RECEIVED 

MYDATA = BIT9 sMY A 

SSTACK = BIT10 SEND START ACKNOWLEDGE 
SSTART = BIT11 sSEND START 





CZDCLA_DUP=11 DATA com LINK TEST 


CZDCLA.P11 


6861 


SeegESSuseeeearence 


037152 


19=MAR= 


037262 
037 1 


RANNANNGAOSASAAS 
SNNNNNO 
MMV 
VOKORRRSOSSOOIIND 


POPIPOPONDNININDNININIPYINININD 


$ 
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MACY11 30A(1052) aoe 16:47 PAGE 170 


DDCMP PROTOCOL MODULE 


eae eee aE BELG TAGES MO ASCI? fesGhees At ice oat 


THE BELOW TABLES AND ASCIZ MESSAGES ARE USED IN 
REPORTI ERROR COUNTERS. THEY 


STALST: .WORD STAOA 
WORD STATA 
WORD STA2A 
eWORD = ST. 
-WORD STA4A 
~WORD STASA 
WORD STA 
WORD STA7A 
eWORD STAIOA 
eWORD STAIIA 
WORD STAI2A 
~WORD STAISA 
WORD STAISA 
eWORD STAISA 
~WORD STAI 
~WORD STAI/A 


POINTER FOR OFFSET 


SPOINTER FOR OFFSET 


TABLE FOR PRINT ROUTINES 
RD ROUTINE 


PRIW: 


WO 
;PRIBB: BYTE/BYTE ROUTINE 
7PRIBS: BYTE SPECIAL ROUTINE 


STAIND: .WORD PRIW 
eWORD PRIW 
WORD PRIW 
WORD PRIBB 
WORD PRIBB 
WORD PRIBB 
WORD PRIBB 
WORD PRIBB 
WORD PRI 
WORD PRIBS 
WORD PRIBS 
WORD PRIB 
WORD PRIBS 
WORD PRIBS 
WORD PRIBS 
WORD PRIW 


LAST:  .WORD 
FIR: - WORD 


MES: 
MESDATA: 


sLAST MESSAGE T 


PRINT 


N DCLT 
NG OF MUST REMAIN IN THE 
CURRENT SEQUENCE ELSE WE'LL BE REPORTING ERRONEOUS 


TTT I ITIL ITT ITT itt it tit iti tit iii 


ASCII 


>>>>> > P 
AnNnnNnnwW 
MOAMOAOAON 
Bony bens Same ted bet bed Bem bay ese Pang bang Day a bg be 


PAAAAAIAI AO ba bt ee 
a me ve bens fag om Bang bee 


hnnnnnne 


sFIRST MESSAGE fo PRINT 


HOLDS MESSAGE 


DATA PART OF MESSAGE 


SEQ 169 
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SEQ 170 
CZDCLA DUP=11 DATA, COMM LINK TEST MACY11 30A(1052) most 82 16:47 PAGE 171 
CZDCLA.P11 18:19 DDCMP PROTOCOL MOD 
6879 
6880 : © REAAAERARAAARAARRAARARAEEERERERAAEAEAAARAAAEEAAERAEAREAREARARARERAEEEAAAEAERERERAEAAEEEEE 
6881 : THE BELOW ASCIZ MESSAGES USED IN 'RPT>* LEVEL OF DCLT 
rer sas *“NLIST BEX 
9 7 047045 74465 0 3466 STAOA: .ASCIZ /%NZO6%S2ZASTATUS FLAGS/ 
1 04 316 117 STAIA: <ASCIZ /ENZO6RSCRADATA MSGS. TX'MITTD/ 
037347 & 516 033117 STAGA: “ASCIZ /%NZO6%S2ZADATA MSGS. RX° 
03740 045 516 031517 STA3SA: .ASCIZ /3NZO3ZSSZAHIGHEST MSG # TX*DENZO3ZSSZAHIGHEST MSG # ACK'D/ 
03747 045 316 1517 STAGA: .ASCIZ /ZNZOS%ZSSZANEXT MSG # TO TXENZO3ZSSZALAST MSG # TX°D/ 
037561 045 02251 31317 STASA: .ASCIZ /%ZN%O ESSEANIGHEST MSG # RX DINED ZSSZATRIB ADDR/ 
37641 5 022516 031517 STAGA: “ASCIZ /%NZ03%S5%AREMOTE TSENZO3ZS5ZAGLOBAL CRC ERRS/ 
037725 045 516 031517 STA7A: .ASCIZ /%NZO3ZS5ZANAK REASONZNZ032S5 ELECT THRESH. ERRS/ 
0007 045 516 031517 STAIOA: .ASCIZ /%N%O3ZS5ZARX THRESH ERRS ZSSZATX THRESH. 
040071 45 316 31517 STAIIA: .ASCIZ /%NZOSZSSZADATA ERRORS OUTENZSS%AHBCC %01%A BCC %01ZA REP %01/ 
040166 047045 44 022% STAI2A: .ASCIZ /%NZO3ZS5ZADATA ERRORS INZNZSSZAHBCC %01ZA BCC 201/ 
0 047045 7445 463 STAI3A: .ASCIZ /%N%03%S5 FER ERRSINZS8%A NO BUFF %01ZA 8 6 %01/ 
040 7045 047445 0224663 STAIGA: .ASCIZ /%ZNZOS%ZSS5ZAREMOTE BUFFER ERRSINZS8%A NO BUFF ZO1ZA T 6 %01/ 
040456 047045 047445 022463 STAISA: .ASCIZ /%NZO3ZSS%AREMOTE STA ERRSENZSSXAOVRN 201%A FORMAT tose 
040544 047045 047445 0204 STAI6A: .ASCIZ /%N%C 3ZS5%ALOCAL STA ERRSXNZSB8ZAOVRN %01%ZA FORMAT %01/ 
0631 045 022516 033117 STAIZA: -ASCIZ /2NZ06%S2ZATX & RX THRESHOLD ERRORS(OVERFLOW)/ 
LIST BEX 
eae FRARARARARERERARERREREREREEERERRERRERRERRERERRRREREREERERRERERERERERERERERERED 
6886 
6887 
6888 
6889 
6890 
6891 
689 
689 
6894 


CZDCLA DUP-11 
CZDCLA.P11 


041004 


RRRRRRRRRRRRRKK KEK 


RRR 
ed wd ed 
ok wt 
SUR 


ATA om Li TEST 
82 1 


s 


sscs Ss 
BzauN & 
pe icicic ich 
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m= 
Ws 
N 
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SEQ 171 
MACY11 30A(1052) monn 82 16:47 PAGE 172 
DDCMP PROTOCOL MOD 
geese g = ane ees eerie easier caenentaede 
3 PROTOCOL ROUTINE: 
: DESCRIPTION: IF THE USER SPECIFIES THE * PROTOCOL ® SWITCH THIS 
3 ROUTINE WILL be CALLED. THIS ROUTINE DECIDES IF 
; WE ARE TRANSMITTING AND/OR RECEIVING AND CALLS 
; THE NECESSARY ROUT! 
; THIS CODE WAS WRITTEN ONLY TO BE USED WITH DCLT. 
[RARRRRERERAEREAEREREEREEERRERRRAERRARARAREAAAAPRERAAAERARAAKERAKERATTeet 
PROTOC: MOV FLAG, IMFLAG zSAVE COPY OF MAIN CODE ‘FLAG’ VARIABLE 
MOV #1, TXREADY SINIT TRANSMIITER DONE FLAG 
CLR RXPRC S INIT RX PROCOTOL DONE 
CLR TXPRC SINIT TX PROCOTOL DONE 
CLR TIMEOUT SINIT PRINT TIMER 
BIT #PRORUN,PARAM PROTOCOL RUNNING ? 
BNE 7$ 7 YES,BRANCH 
zz PROTOCOL NOT RUNNING == SO FIRE UP THE LINK 
SETVEC INVEC,#PRRXI,#PRIOS ZLOAD RX PROTOCOL INTERRUPT ROUTINE 
MOV #PRI0S,-(SP) 
MOV #PRRXI.=(SP) 
MOV INVEC,-(SP) 
MOV #3,-(SP) 
TRAP  CSSVEC 
ADD #10,SP 
CLR HDXMTP sINIT HALF DUPLEX/MULT1-POINT FLAG 
TST FHDPLX HALF DUPLEX 
BEQ 2$ S$ BRANCH 
TST MPPTP tmiti POINT ? 
BEQ 3$ :NO, BRANCH 
2$: MOV #1, HDXMTP [SET HALF DUPLEX/MULTI-POINT 
3$: MOV #30. , TIMERS 330 SECONDS TO START 
MOV #1, SELECT SINIT 
CLR TURNON 31N IT YET ANOTHER FLAG 
CLR PRUN NIT ANOTHER FLAG 
CLR ASTRT tINIT "STACK SENT® FLAG 
CLR PRSTAT SINIT STAT 
JSR PC PROINT SINIT PROTOCOL COUNTERS AND VARIABLES 
TST MPPTP :MULTI = POINT MODE ? 
BNE 4$ :YES, H 
als #SSTART ,PRSTAT :TELL Tx ROUTINE TO SEND ‘START’ 
4$: JSR PC RXPROTO £GO WAIT FOR *STACK* yor *START® 
BIT #PRORUN,PARAM  :DID PROTOCOL START 
MOV #1,.PRUN THES FLAG USED IN RXPROTO ROUTINE 
IF HALF DUPLEX OR MULTI POINT, WE MUST MANAGE THE LINK DIFFERENTLY 
os: MOV #3., TIMERS [SET UP TIMER 
TST HDXMTP sHALF DUPLEX OR MULTI = POINT? 
BNE 7 YES, BRANCH 


D 14 
CZDCLA 11 Ba con gti TEST MACY11 30A(1052) Fale 16:47 PAGE 173 


SEQ 172 


CZDCLA.P1 DDCMP PROTOCOL MODUL 
695 
695 z: IF FULL DUPLEX AND ACTIVE MODE-= JUMP 
6954 941140 922737 000003 006570 CMP ACT. »MODTYP ZACTIVE MODE? 
6999 1146 001440 BEQ 200$ ZYES, BRANCH 
6357 zz PROTOCOL IS RUNNING == LINK IS HOT SO SEND DATA 
6959 041150 032737 000010 037116 10$: BIT #OTX, IMFLAG i TRANSMITTING A MESSAGE ? 
6960 041156 001414 BEQ 100 7NO, BRANCH 
6961 041160 052737 900020 037052 20$: BIS MSDATA,PRSTAT SEND DATA FLAG 
6964 041166 004 7 CALL =‘ TXPROTO 760 SEND THE MESSAGE 
696 11 7 3 CALL §_ RXPROTO [CHECK THE REPLY 
6964 041176 005737 037122 TST TXPRC [MESSAGE TRANSMITTED © ‘‘ACK*ED''? 
6965 041202 001766 BEQ 20$ 7NO, BRANCH 
696 041 005237 037054 INC TMESTX ‘BUMP "TOTAL MESSAGES TRANSMITTED’ COUNTER 
6968 041210 005737 037120 100$: TST RXPRC ZRECEIVE PROTOCOL FINISHED ? 
6969 041214 001011 BNE 110$ YES BRANCH 
6970 041216 032737 000004 037116 BIT #ORX, IMFLAG SRECEIVING A MESSAGE ? 
6971 041224 00100 BNE 105$ YES BRANCH 
697 041226 000137 041674 JMP PROTEX EXIT 
6974 
6975 041232 004737 042104 105$: CALL RXPROTO :G0 PROCESS INCOMING MESSAGE 
6976 041236 000764 100$ TSEE IF RECEIVE PROTOCOL COMPLETE 
6977 041240 005237 037056 110$: INC TMESRX [BUMP “TOTAL MESSAGES RECEIVED’ COUNTER 
6978 041244 000137 041674 JMP PROTEX EXIT 
6980 
6981 zz ACTIVE MODE (FULL DUPLEX AND POINT TO POINT LINKS) 
oes 041250 004737 042000 00$: CALL  RXON : TURN ON RECEIVER 
6984 04.1254 052737 of3388 037052 210$: BIS #SDATA,PRSTAT SEND DAT A FLAG 
6985 041262 004737 045 CALL =‘ TXPROTO :D0 SEND DATA MESSAGE 
6986 041266 004737 042104 215$: CALL § RXPRCTO 60 PROCESS INCOMING MESSAGE 
6987 041272 005737 037122 TST TXPRC [TX PROTOCOL DONE ? 
6988 041276 0017 BEQ 210$ :NO,BRANCH 
6989 041 005737 037120 TST RXPRC ZRX PROTOCOL DONE ? 
6990 041304 901770 BEQ 215$ : CH 
6991 041 5 3 037056 INC TMESRX BUMP ‘TOTAL MESSAGES RECEIVED’ 
699 04131 5237 037054 INC TMESTX SBUMP ‘TOTAL MESSAGE SENT’ COUNTER 
6994 TXREADY SET IN TX INTERRUPT ROUTINE 
6995 041316 005737 037126 550: TST TXREADY 3MESSAGE SENT ? 
69% 041322 001775 BEQ 220$ NO, BRANCH 
6997 041324 004737 942000 CALL §RXON STURN ON RECEIVER 
6998 041 000137 041674 JMP PROTEX EXIT 
38 Boe tig THIS ROUTINE(PROHDX) IS USE IN HALF=DUPLEX PT-PT & MTP 
7003 041 3 PROHDX : 
7004 041 005737 006574 10$: TST FHDPLX ZFULL DUPLEX ? 
7005 041 001 3 BNE PROF DX 7 YES BRANCH 
7006 04134 05073 000010 037116 BIT #OTX, IMFLAG S TRANSMITTING ? 
7007 04135 1424 BEQ 100$ NO, BRANCH 
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0 037052 


037122 
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037052 


037116 
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SEQ 173 


MACY11 30A(1052) owes 16:47 PAGE 174 
DDCMP PROTOCOL MODUL 


20$: TST SELECT 3D0_WE HAVE THE SELECT BIT ? 
BNE YES ,BRANCH 
CALL -RXON : TUR 
25$: CALL RXWAIT STURN ON RX AND WAIT FOR SELECT BIT 
BR 20$ :DID WE cer THE SELECT BIT 
30$: BIS #SDATA, PRSTAT 3 SEND DATA FLAG 
CALL =‘ TXPROTO ENT IT 
CALL §_ RXPROTO ?CHECK REPLY 
TST TXPRC [TX PROTOCOL DONE ? 
BEQ 20$ [NO, BRANCH 
INC TMESTX [BUMP TOTAL MESSAGES SENT 
100$: MOV #1, TXPRC iSET TX PROTOCOL DONE 
103$: TST RXPRC :R X PROTOCOL DONE ? 
BNE 150$ BRANCH 
BIT #ORX, IMFLAG ERECEIVING ? 
BNE 1108 YES ,BRANCH 
OTEX “EXI 
= WAS THE MBALL Tossep BACK IN OUR COURT 
iios: TST SEL LECT sHAVE WE * RECEIVED THE SELECT BIT YET? 
BNE 130$ 3YES, 
CALL _ RXON TURN ON RECEIVER 
115$: CALL  RXWAIT :PROCESS DATA 
BR 103$ AGAIN 
130$: BIS #SACK ,PRSTAT «SEND ACK TO TURN THE LINE AROUND 
CALL ‘ TXPROTO : 
CALL T0 [G0 RECEIVE THE PENDING AESSAGE 
BR 103$ :BRANCH 
150$: INC TMESRX ;BUMP RECIEVED MESSAGE COUNTER’ 
CALL = RXON TURN ON R 
JMP PROTEX tEXI 
zz THIS ROUTINE(PROFDX:) USED WITH FULL DUPLEX-MULTI POINT LINKS 
PROFDX: BIT #OTX, IMFLAG sTRANSMITTING ? 
BNE 10$ YES BRANCH 
MOV #1, TXPRC SSET TRANSMIT PROTOCOL COMPLETE 
10$: IST RXBRC :WAS THE THE ist MESSAGE RX°ED DURING STARTUP? 
BIT WORX, IMFLAG SRECEIVING ? 
BNE YES BRANCH 
MOV #1, RXPRC °SET RECEIVE PROTOCOL COMPLETE 
BR 06s ‘BRANCH 
20$: CALL = RXPROTO SPROCESS INCOMING MESSAGE 
TST RXPRC : DONE ? 
BEQ 208 [NO, BRANCH 
30$: INC TME SRX *BUMP RX MESSAGE COUNT 
BR 100$ BRANCH 
100$: TST TXPRC ANYTHING TO SEND ? 
BNE 135$ :NO, BRANCH 
120$: TST SELECT :D0 WE HAVE PERMISSION TO SEND ? 
BNE 1 3YES, BRANCH 
CALL ON ON 
125$: CALL  RXWAIT ‘WAIT ON SELECT BIT 
BR 20$ ‘TRY AGAIN 
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SEQ 174 


7064 061640 052 7 900020 037052 130$: iS WSDATA,PRSTAT ;SEND DATA FLAG 
7065 041 7 CALL‘ TXPROTO [SEND DATA 
2066 165 ? 31 04 CALL RXPROTO [CHECK REPLY 
706 165 5737 037122 TST TXPRC [TRANSMIT PROTOCOL DONE ? 
7068 1 1736 BEQ 120$ =NO,TRY AGAIN 
1 3¢ 937054 INC TMESTX [BUMP "TOTAL MESSAGE SENT" COUNTER 
2070 16 7 042000 135$: CALL RXON :TURN ON RX $0 THA T WE WON'T MISS ANY MESSAGES 
707 041674 $57083 177777 037056 PROTEX: cmp rl , TMESRX 2 SMAX? : 
74 041704 333 037 DEC TMESRX SLATCH Ay" 177776 
073 041710 : 7 037058 037054 10S: CA fai. TRESTX MAX? “ 
707 17 3397 037054 DEC TMESTX sLATOH AT 17777% 
7 4 01 73 7116 006602 15$: MOV IMFLAG, FLAG RESTORE FLAG" TO ITS ORIGINAL VALUE 
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SEQ 175 


"atime aaa aac acelin anna nena maciainia 
PROTOCOL INIT ROUTINE: 

THIS ROUTINE WILL INITIALIZE THE ERROR COUNTERS AND MESSAGE 
: COUNTERS AS NEEDED FOR PROPER DDCMP PROTOCOL OPERAT 

; DURING NORMAL OPERATION THIS CODE WILL BE CALLED ONCE FROM 

: PROTOCOL STARTUP ROUTINE. 


SRRARREERARAERERRAERAEREEEEEERERAEEREREEREEREARRAERREARARAEEREREARERERREREEREEREE 


041734 010146 PROINT: MOV R1,-(SP) ZSAVE R1 

041736 113737 037065 006534 MOVB -* TRIBN, TEMP :SAVE TRIB NUMBER 

041744 012701 037052 MOV #PRSTAT,RI1 SFIRST LOCATION TO CLEAR 

041750 005021 10$: CLR (Ri)¢ [CLEAR AND 

041752 020127 037114 CMP R1,4PROEND SLAST LOCATION TO CLEAR 

041756 001374 BNE NO, BRANCH 

041760 113737 006534 037065 20$: ##MOVB  TEMP,TRIBN ZRESTORE TR TRIB # 

041766 112737 000001 037062 mMOVB 3 so#'1,T FIRST MESSAGE # TO BE TRANMITTED 
041774 012601 MOV (SP)+,R1 TRESTORE Rl 

041776 000207 RETURN TEXIT 


© REARAERAERAARREARRARERRAERERERERARAEERAARERERRAEEREAREREEEREREREREREEERERERERE 


; TURN ON RECEIVER ROUTINE: 
DESCRIPTION: THIS ROUTINE SIMPLY ENABLES THE RECEIVER AND 


SaSRaRERASESESSRESESEREROEER | 


7110 INITIALIZES VARIABLES THEN RETURNS. 
rig RERAAAAEAAERARAERARARARARERERAERARAAARRARAEEARARAEAERAEAARARARAERERARARERERAEREEE 
1 
7114 042000 005737 037146 RXON: TST TURNON yRX ALREADY ON ? 
7115 042004 001036 BNE RXONE X YES, BRANCH 
116 006 005037 037052 CLR PRSTAT SINIT STATUS WORD 
7117 042012 005037 002656 CLR RHDMSG “INIT 1ST WORD OF RX BUFFER 
7118 042016 042737 Sones 037140 BIC WORK! ABCC! 4RXM. PRE FLAG ;:FLAGS USED IN RX INTERRUPT ROUTINE 
7119 042024 052737 000 037052 BIS #MYDATA, PRSTAT UME MESSAGE F 
7120 04 012737 002657 011510 MOV #RHDMID. RMSGPT BUFFER ADDRESS FOR HEADER PART ON MESSAGE 
7121 04 013737 002654 011512 MOV HDMC ,RMSGCC SINIT CHARACTER COUNT = 6 
riee 04 032737 10 006576 BIT #MOCHK, :MODER CHANGES WANTED ? 
7123 042054 901004 2 $,BRANCH 
ries 042096 0587 000520 147364 BIS gRINTEN!RXENA!STRIP SRACSR : TURN ON RX 
7125 064 405 BR -BRANCH 
2126 042066 52 000560 147354 08: BIS #RINTEN! RXENA!DSI TEN! STRIP, @RXCSR : TURN ON RX 
7127 042074 012737 000001 037146 25$: MOV #1, TURNON sRX 1S ON FLAG 
128 042102 000207 RXONEX: RETURN 


sre DUP=11 DATA COMM. LINK TEST 
19-MAR=82 18:19 


22 


ANISSELSARERASSSNSUGLUNLSSHVEGLASLSSSLEREUNAS § 
RR 
INDIA) aed aed ed ad 22 
NX RSARVOOCO 


YYVIYYVIYYYIYYYIYYYYIYYIYIYIYIYYYIIYYIYIAAY 


RRRREL KERR 
SNSERE SEK 
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SEQ 176 


SRERARARAAAAAAAEAAEARAAEAEEEEEEEAAERARARARAEEAAEARARERRERERAEREREREREEEREREE 


3 RECEIVER PROTOCOL ROUTINE: 

DESCRIPTION: THIS ROUTINE WILL PROCESS AN INCOMING MESSAGE 

: AND DETERMINE IF IT'S A VALID CONTR ATA 

; MESSAGE. IF AN ERROR IS DETECTED THE APPROIATE 

; ERROR COUNTERS WILL BE UPDATED BY THE ERROR 

3 ROUTINE. 

SUBORDINATE ROUTINES USED: ‘‘TXPROTO"’ 

3 “ERROR PROCESSOR" 

ETT TTT OTT STOTT OCT TTTTTTTTCTTTTTTTTTTTT TTT TTT TTT TTT TTT TTT TT 


RXPROTO: 
CALL RXON s TURN ON RECEIVER 


; WAIT FOR FIRST CHARACTER TO APPEAR IN RX BUFFER 


RKWAIT: 
20$ ZCHECK FOR “C 
TRAP  C$BRK 
TSTB §RHDMID :FIRST CHARACTER READ ? 
BNE 0$ sYES, BRAN 
TST TIMERS 760 SECONDS ELAPSED ? 
BNE 0s 7NO,BRANCH 
JSR PC, ERRPRC [CALL ERROR PROCESSOR 
JMP RXPREX ZEXIT 


>: IF A CONTROL MESSAGE THEN TELL RX INTR. TO PROCESS HEADER ONLY 
Sos:  CMPB RHDMID ENG ZCONTROL MESSAGE ? 


BNE 4 2NO,BRANCH 
BIS #RXM,PRFLAG sPROCESS HEADER ONLY 


>: WAIT FOR CRC TO BE CHECKED 
46s: BIT #8CCOK!BCCBAD.PRSTAT zCRC CHECKED ? 


YES, BRANCH 
TST TIMERS 260 SECONDS ELAPSED ? 
45 3NO,BRANCH 
JSR PC ,ERRPRC :GO PROCESS ERROR 
RXPROTO TRY AGAIN 


I 14 


SEQ 177 
CZDCLA DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 178 
CZDCLA.P11  19-MAR=82 18:19 DDCMP PROTOCOL MODULE 

7174 
7175 >: CHECK THAT RX WAS SERVICED QUICK ENOUGH(DETERMINED BY RX INTER. ROUTINE) 
7176 042 32737 000010 037952 45$: BIT WSNAK,PRSTAT §;RX OVERRUN ? 
71 04g 1 1761 BEQ :NO,BRANCH 
7178 042212 004 043732 JSR PC, ERRPRC :G0 PROCESS ERROR 
7179 O42 16 004737 0453 JSR PC. TXPROTO 7G0 SEND NAK 
£180 042222 000137 042104 JMP RXPROTO [TRY AGAIN 
ri8¢ -: IF HEADER CRC ERROR THEN LOG IT AND SEND NAK 
7183 042226 032737 000002 037052 56s: BIT WBCCBAD,PRSTAT ;CRC ERROR ? 
7184 04 334 9014 BEQ 60 7NO, BRANCH 
7185 04 52737 000010 037052 BIS § _#SNAK,PRSTAT SET SNAK (SEND NAK) 
7186 0462244 152737 1 037077 BISB § #HEADBCC,INMASK :SET THE MASK 
7187 042252 112737 1 037070 MOVB § #HEADBCC.REANAK :NAK REASON = 1 
7188 042260 105237 037076 INCB  _—CODERIN [LOG DATA ERROR INBOUND 
7189 042264 901003 BNE 55$ [BRANCH IF NOT OVERFLOW 
7190 042266 112737 000377 037076 MOV #377,DERIN ‘LATCH COUNTER AT 255. 
7191 042874 004737 043732 55$: JSR PC, ERRPRC 760 PROCESS ERROR 
198 042300 012737 1 037134 MOV #1,SELECT SIF HALF/DUPLEX, WE ASSUME S-BIT WAS SET 
7193 042306 737 045336 JSR PC; TXPROTO [G0 SEND NAK 
7194 042312 000137 042104 JMP RXPROTO :TRY AGAIN 
7196 z: NOW CHECK THE ADDRESS OF THE MESSAGE- IS IT FOR ME ? 
7197 042316 123737 037065 002664 60$: § CMPB #$TRIBN,RHDADR  ;MY ADDRESS ? 
7198 042324 00142 BEQ [YES, BRANCH 
7200 :; ITS NOT FOR ME, BUT COUNT IT OUT TO KEEP RX IN SYNC 
7201 042326 042737 001000 037052 62$: BIC WMYDATA,PRSTAT ;:MESSAGE NOT FOR ME 
7202 042334 032737 000100 037052 BIT #RXD ,PRSTAT SRECEIVER DONE ? 
7203 042342 001003 BNE 65$ YES BRANCH 
7204 042344 005737 006646 TST TIMERS SHAVE WE DAWDLED LONG ENOUGH ? 
7203 042350 001366 BNE 62$ :NO,BRANCH 
r509 042352 032737 000001 037052 65$: BIT #BCCOK,PRSTAT ;DATA CRC OK ? 
7208 042360 001 2 BNE 67$ 7 YES, BRANCH 
7209 042362 105237 037067 INCB — GLOBCC [LOG GLOBAL CRC ERROR 
7210 042366 000137 042104 67$: JMP RXPROTO 760 RE-QUE BUFFER 

1 
7218 zz: IS IT A CONTROL MESSAGE ? IF IT IS PROCESS IT 
7215 042372 105037 03707. 70$: CLRB  RXTHER ZINIT RX THRESHOLD ERROR COUNTER 
ele 04 376 122737 002657 CMPB #ENO,RHDMID [CONTROL MESSAGE ? 

1 404 00140 BEQ 75$ YES BRANCH 
218 042406 000137 043256 JMP 200 [G0 PROCESS DATA MESSAGE 
7220 -: IS IT ANAK ? 
reel 04241 120737 000002 002660 75s: ces #NAK ,RHDTYP ZNAK? AN a 
1558 0424 003985 000100 006576 BIT #PRORUN,PARAM PROTOCOL RUNNING ? 
7226 4 1 2 BNE YES BRANCH 
7225 4 137 042104 JMP RXPROTO SIGNORE THIS MESSAGE 

6 436 052737 037052 80$: BIS WNAKRX,PRSTAT FLAG NAK RECEIVED 

444 004737 7 JSR P 760 LOG NAK REASON 

38 450 0527 ? 9 037052 BIS WSDATA,PRSTAT SEND DATA 

7 456 737 J PC, TXPROTO *GO RE-TRANSMIT PREVIOUS MESSAGE 


CZDCLA 11_DATA COMM. LINK TEST 
CZDCLA.P1 1SSMARCBS 18:19 


7230 042462 000137 042104 
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JMP 


RXPROTO 


2G0 RE-QUE RX 


SEQ 178 


a ce 
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SEQ 179 

CZDCLA DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR=-82 16:47 PAGE 180 
CZDCLA.P11  19-MAR-82 18:19 DDCMP PROTOCOL MODULE 

7231 

£33¢ -: IS IT A ACK ? 

723 042466 122737 000001 002660 90s: § CMPB  #ACK,RHDTYP sACK ? 

7234 042476 901037 BNE [NO, BRANCH 

7235 042476 032737 000100 006576 BIT #PRORUN,PARAM :PROTOCOL RUNNING ? 

72 042504 901004 BNE YES, 

7237 042506 052737 000100 006576 BIS #PRORUN,PARAM TELL THE WORLD THAT LINK HAS STARTED 
7238 042514 000445 BR 97$ EXI 

7239 042516 123737 037062 002662 93$: § CMPB  T,RHDREP [CORRECT MESSAGE # ACKNOWLEDGED ? 
72640 042524 001405 BEQ 95$ YES 

7241 042526 005737 037142 TST HDXMTP HALF DUPLEX/MULTI -POINT ? 

7242 042532 001036 BNE 97$ :YES,BRANCH 

7243 042534 000137 042104 JMP RXPROTO TRY AGAIN 

7244 042540 105037 037073 95$: CLRB  TXTHER SINIT. TX THRESHOLD COUNTER 

7245 042544 113737 037062 037060 MOVB~=siT IN MenesT SEQUENTIAL MESSAGE # SENT 
7246 042552 113737 037062 037063 MOVB sj X SHIGHEST MESSAGE # SENT 

7247 042560 113737 00266 037061 MOVB = RHDREP,A HIGHEST MESSAGE # ACKNOWLEDGED TO THIS STATION 
7248 042566 105237 03706 INCB OTT # OF NEXT ppATA MESSAGE TO BE TRANSMITTED 
7249 042572 012737 177777 037122 MOV #1, TXPRC ‘TRANSMIT PROT TOCOL COMPLETE 

7250 042600 022737 006570 CMP #ACT MODTYP SACTIVE MODE ? 

7251 042606 00101 BNE 97$ [NO, BRANCH 

7252 042610 005737 037120 TST RXPRC RX PROTOCOL COMPLETE? 

7253 042614 001005 BNE 97$ YES 

7254 042616 005737 006574 TST FHDPLX 3HALF DUPLEX? 

7255 042622 00140 BEQ YES BRANCH 

7256 042624 000137 042104 JMP RXPROTO 260 PROCESS INCOMING MESSAGE 
7258 042630 00137 043730 97$:  JMP RXPREX EXIT 

7260 :: IS IT A REP ? 

7261 042634 122737 000003 002660 100$: CMPB = #REP,RHDTYP sREP ? 

7262 042642 001054 BNE 150$ :NO, BRANCH 

7264 33 NUM =R? 

7265 042644 032737 000100 006576 BIT #PRORUN,PARAM  ;PROTOCOL RUNNING ? 

7266 042652 901002 BNE 110$ YES BRANCH 

7267 042654 000137 042104 JMP RXPROTO S IGNORE MESSAGE- TRY AGAIN 

7268 042660 123737 002663 037064 110$: CMPB § RHDNUM,R SHAVE WE RECEIVED THIS MESSAGE ? 
7269 042666 001015 BNE 1 [NO, BRANCH 

7270 042670 052737 000004 037052 BIS WSACK,PRSTAT §:SET SEND ACK 

7271 042676 105237 037066 INCB REM TO [BUMP REMOTE TIME ur COUNTER 
rere 042702 001003 BNE SBRANCH IF NOT OVERE Ow 

042704 112737 000377 037066 MOVB 7, REMTMO SLATCH COUNTER AT 255. 

7274 042712 004737 045336 115$: JSR TXPROTO :G0 SEND ACK 

ae, 042716 000137 042104 JMP RXPROTO : TRY AGAIN 

7277 s: NUM <> R 

7278 042722 052737 000010 037052 120$: 81S WSNAK,PRSTAT SET SEND NAK 

7279 06 112737 900005 03707 MOVB mmEPSENT, REANAK :SET REAS 

7280 042736 105237 037076 INCB CODER *BUMP DATA ERROR INBOUND 

7281 042742 001003 BNE 1 5S [BRANCH IF NOT OVERFLOW 

e8e 04 744 11 37 000377 03707 MOVB  #377,DERIN SLATCH AT 

728 038 152737 037077 125$: BISB  #REPMSK,INMASK ERROR REASON IS REMOTE TIME OUT 
fas Risreh Sar Sesce Jt BE-HiBato | ZeNTSENS NA 

er $2355 000137 b63704 JMP RXPROTO :TRY AGAIN 


CZDCLA_DUP=11 DATA COMM. LINK 
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IS IT A START ? 


i60$:  CMPB  #STRT.RHDTYP =: START ? 
BNE :NO,BRANCH 
BIT #PRORUN,PARAM PROTOCOL RUNNING ? 
BNE 160$ YES H 
BIS WSSTACK,PRSTAT :SEND START | ACKNOWLEDGE 
JSR PC, TXPROTO :G0 SEND 
JMP 360 TO RX SROUTINE AND EXPECT ACK OR DATA 
tz IF DMV OR DMP. 
160$: BIS #ABORT,PARAM =; TELL MAIN CODE TO ABORT!! 
MOV #1 -RXPRC SRECEIVE PROTCOL DONE 
MOV #~1_TXP S TRANSMIT PROTOCOL DONE 
PRINTF #165$ ‘FATAL ERROR 
MOV #165$,-(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP  CSPNTF 
ADD #4,SP 
JMP RXPREX ZENIT 
.NLIST BEX 
165$: “ASCIZ /YNTASTART RECEIVED WITH PROTOCOL RUNNING=-ABORTING! !/ 
.LIST BEX 
zz IS IT A STACK ? IF SO SEND AN ‘ACK’ 
170$: CMPB  &#STACK,RHDTYP ;STACK ? 
BNE :NO, BRANCH 
BIS WSACK,PRSTAT :TELL TX ROUTINE TO SEND ACK 
JSR PC, TXPROTO :SEND ACK 
BIS #PRORUN,PA [SET "PROTOCOL RUNNING’ FLAG 
JMP RXPREX EXIT 
IF WE GOT TO HERE, We HAVE A STRANGE PROBLEM ! 
ibos: BIS WSNAK,PRSTAT | ;SET SEND NAK FLAG 
INCB _—sLLOSTER 3LOCAL STATION ERROR 
B1SB AFORAERR LSMASK : T ERROR 
JSR PC, ERRPRC sPROCESS ERROR 


os PC. TXPROTO SEND NAK 
oT0 TRY AGAIN 
33 END oF MCONTROL MESSAGE PROCESSOR 


SEQ 180 


M14 


SEQ 181 
CZDCLA DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR=-82 16:47 PAGE 182 
CZDCLA.P11 19-MAR=82 18:19 DDCMP PROTOCOL MODULE 

733, 

7338 tz¢HERE WE BEGIN PROCESSING DATA PART OF MESSAGE 

7335 

1336 043256 005737 037120 200$: TST RXPRC ZALREADY PROCESSED A MESSAGE? 
E4 043262 001432 BEQ 215$ :NO, H 

7338 043264 042737 001000 037052 BIC WMYDATA,PRSTAT :TELL RX INTERRUPT NOT TO STORE THIS 

7339 043272 005737 037122 TST TXPRC :TX PROTOCOL DONE ? 

7340 043276 001037 BNE 220$ : YES,BRANCH 

7341 z: SEE IF IMPLICIT ACK IMBEDDED IN THIS MESSAGE 

o34e 043300 123737 037062 002662 CMPB —- T_.RHDREP ;RESP=MESSAGE SENT? 

7343 043306 001033 BNE 220$ 7NO,BRANCH 

7344 043310 113737 037062 037060 MOVB «iT? N SHIGHEST # SENT. 

7345 043316 113737 037062 037063 MOVB =s:iT.X : 

7346 043324 113737 037062 037061 MOVB=siT-«.A 3HIGHEST MESSAGE ACK'ED 

7347 043332 105237 037062 INCB OTT SNEXT MESSAGE TO SEND 

7348 043336 012737 177777 037122 MOV #-1, TXPRC :TX PROTOCOL DONE 

7349 043344 000137 043730 JMP RXPREX SEXIT 

7350 -:CHECK SEQUENCE OF MESSAGE 

7351 043350 105237 037064 315$: INCB. R ZEXPECTED 

7352 043354 123737 037064 002663 CMPB —sR. RHDNUM :CORRECT MESSAGE "? 

7353 043362 001423 BEQ 360$ SYES,PROCESS IT 

7354 043364 105337 037064 DECB. SOR * SUBTRACT 

7355 043370 042737 001000 037052 BIC #MYDATA,PRSTAT JUST COUNT OUT MESSAGE-DON'T PUT IN BUFFER 

7356 043376 032737 000100 037052 220$: BIT #RXD ,PRSTAT *WAIT FOR DONE 

7357 043404 001003 BNE [BRANCH 

7358 043406 005737 006646 TST TIMERS STIME OUT? 

7359 043412 001371 BNE 220$ NO, BRANCH 

7361 -SEND AN "ACK" 

7362 043414 052737 000004 037052 580$: BIS MSACK,PRSTAT SEND ACK 

7363 043422 004737 045336 CALL §_ TXPROTO :G0 SEND IT 

364 043426 000137 042104 JMP RXPROTO STRY AGAIN 

7366 IS DATA PART OF MESSAGE COMPLETE ? 

7367 043432 032737 000100 037052 $00$: BIT #RXD,PRSTAT sMESSAGE COMPLETE ? 

7368 043440 001021 BNE 330$° [YES BRANCH 

7370 zz 1S THE LINE DEAD ? 

7371 043442 005737 006646 TST TIMERS :TIMED-OUT ? 

7372 043446 001004 BNE :NO, BRANCH 

7373 043450 004737 043732 JSR PC-ERRPRC :GO PROCESS TIMER ERROR 

30 043454 000137 042104 JMP RXPROTO [TRY AGAIN 

376 CHECK FOR RECEIVER OVERRUN OR BUFFER PROSLEM 

7377 043460 032737 000010 037052 $05$: BIT WSNAK,PRSTAT :DID RX INTERRUPT SET THIS ? 

7378 043466 001761 BEQ 300$ NO, BRANCH 

7380 ¢3RX ERROR SEND A NAK AND TRY AGAIN 

7381 043470 004737 043732 JSR PC, ERRPRC 360 PROCESS ERROR 

38 043474 004737 045336 ser PC TXPROTO SEND 

£383 043500 000137 042104 JMP RXPROTO STRY AGAIN 

7385 HECK FOR DATA CRC ERROR 


7 3504 032737 000001 037052 %30$: BIT OK,PRSTAT ;DATA CRC GOOD ? 
3a? 0038 33 BNE ©4008 £5 BRANCH 
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SEQ 182 
MACY11 30A(1052) 23=MAR-82 16:47 PAGE 183 
DDCMP PROTOCOL MODULE 


33 LOG CRC ERROR AND a A_NAK 
BIS #SNAK ,P 


PRSTAT —_—; SET SEND NAK FLAG 
INCB DERIN ‘BUMP DATA ERROR INBOUND COUNTER 
BNE os *BRANCH IF NOT OVERFLOW 
MOVE #377,DERIN [LATCH AT 
340$: BISB § #DATABCC,INMASK :SET DATA CRC BIT 
JSR PC,ERRPRC 60 PROCESS ERROR 
JSR PC. TXPROTO [G0 SEND NAK 
JMP RXPROTO [TRY AGAIN 


WE HAVE A GOOD MESSAGE !!! SO ACKNOWLEDGE IT 
ibos: BIT #PRORUN PARAM ;PROTOCOL RUNNING? 


YES, 
TST ASTRT ‘DID "WE SEND A STACK? 
BNE 415$ 7 YES, BRANCH 
EXIT 
NOTE: DMV/DPM WILL SEND "START = STACK = DATA’ FOR STARTUP SEQUENCE 
iiss: BIS #PRORUN,PARAM  ;:SET PROTOCOL RUNNING 


; CHECK FOR AN IMPLICIT ‘ACK’ 


420$: . CMPB —«T_.RHDREP :RESP = MESSAGE SENT ? 
BNE 450$ 
MOVB si _N SHIGHEST Seq MESSAGE i! SENT 
MOVB=siT=«{j.X HIGHEST MESSAGE SENT 
MOVB=s«iT~«[.A SHIGHEST HESSAGE "ACK"ED® 
INCB r SNEXT MESSAGE # TO TRANSMIT 
MOV TXPRC :SET TRANSMIT PROTOCOL COMPLETE 
450$: BIS Ssate PRSTAT 3SET SEND ACK FLAG 
JSR PC, TXPROTO “SEND ACK 
MOV Oct AXPR PRC :RECEIVE MESSAGE PROTOCOL FINISHED 
TST PRUN PROTOCOL RUNNING ? 
BEQ RXPREX ?NO, BRANCH 
TST HDXMTP SFULL DUPLEX PT-PT? 
BNE RXPREX [NO, BRANCH 
CMP #ACT MODTYP SACTIVE MODE ? 
BNE RXPREX 3 
TST TXPRC S TRANSMIT PROTOCOL COMPLETE ? 
BNE RXPREX YES, BRANCH 
JMP RXPROTO 260 PROCESS MESSAGE 
RXPREX: RETURN :DONE !! 





B 15 


SEQ 183 
CZDCLA DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR~62 16:47 PAGE 184 
CZDCLA.P11 1 =82 18:19 DDCMP PROTOCOL MODUL 

7% 

74 : © RRAEAAAAAAARAAARAERAERAAAEAEEAEARAAERAERERAAAAAEARAARERAERAAERAAARAEAARAAERAAEARERE 

i, 5 3 ERROR PROCESSING ROUTINE (ERRPRC): 

7% 3 DESCRIPTION: THIS ROUTINE IS USED TO PROCESS INBOUND AND 

74 ; OUTBOUND ERRORS. ALSO THE 60 SECOND ‘WATCHDOG’ 

2459 3 TIMER IS CHECKED. 

7461 ; THE MAJORITY OF THE CODE IS USED IN PROCESSING 

746 ; TBOUND S (NAKS RECEIVED). THE NAK RE 

746 ; TYPE IS DETERMINED AND THE APPROIATE ERROR 

7464 ; COUNTER IN INCREMENTED. IF THE TRANSMIT THRESHOLD 
7445 ; COUNTER (TXTHER) REACHES 7, IT IS CLEARED 

TAG ; AND THE CUMULATIVE RECEIVE/TRANSMIT THRESHOLD 

744 ; ERROR (RXTXTE) COUNTER IS BUMPED. 

7448 5 RARER AEAAAARRERARARAEAEREEAEEAAEAEAAAERARAEARAAEAAAEARARARAAAREEAERERERARARARERE 

7449 

7450 

7451 

045 zCHECK THE WATCHDOG TIMER 

7454 043732 005737 006646 ERRPRC: TST TIMERS 760 SECONDS ELAPSED 

7455 043736 001075 BNE 1 7NO, BRANCH 

7456 3740 032737 000100 006576 BIT #PRORUN,PARAM :PROTOCOL RUNNING ? 

7457 043746 001034 BNE 7$ 7 YES BRANCH 

7459 z3 INFORM USER OF "START = STACK' TIMEOUT 

7460 043750 005037 006542 CLR TEMPS zINIT IT 

7461 043754 005037 006544 CLR TEMP 3INIT IT x 

0437 012737 017313 006540 MOV TONERS. TEMP z"TIME OUT IN START-STACK SEQUENCE 

7463 043766 113737 006542 MOVB = RHDMCC, TEMP SRECEIVED DATA | 

464 043774 113737 002646 006544 MOVB  =HDMCC, TEMP4 ; TRANSMIT TED DAT 

7465 044002 004737 02016 JSR PC, LGDVE 3LOG TIME OUT IN AE VENT LOG 

044 005237 006506 INC ERRCN COUNT 

7467 06401 ERRSOFT 10. ,DVEMS,ERR13 :PRINT ERROR 

7468 044012 104457 TRAP CSERSOFT 
7469 044014 le .WORD 10 
7470 044016 01731 “WORD DVEMS 
7471 17636 “WORD ERR13 
7472 044022 005237 006502 INC OPVAR :BUMP ERROR COUNTER 

7473 044026 12 7 36 006646 MOV #30. TIMERS SRE-INIT TIMER 

67h 0440 137 044506 JMP EXIT 

767) INFORM USER OF "DATA MESSAGE"’ TIMEOUT 

ote} 044040 005237 037150 os: INC TIMEOUT 

2478 04404 022 7 000024 037150 ce ‘ 0., TIMEOUT £60 SECOND SECONDS 1 4 

7480 beéoss 12737 017110 006540 MOV #DVEM2, TEMP MO ime O OUT WAITING FOR RX OR TX TO COMPLETE’ 
7481 17737 16536 542 MOV @RXCSR, TEMP SRECEIVER ADDRESS 

7 0440 17737 14536 544 MOV aTXCSR. TEMP S TRANSMIT ADDRESS 

748 07 737 02016 JSR PC,LGDV [LOG ERROR 

7484 10 5237 5 INC E CNT [BUMP ERROR COUNT 

7485 106 ERRSOFT 7,DVEM2,ERR13  :PRINT ERROR 

7% 106 106457 TRAP CSERSOFT 
7487 04411 7 . WORD 

7 044112 017110 “WORD DVEM2 








CZDCLA . DATA DATA Cont, ALK 


CZDCLA.P11 


7690 eitie 
749 


1 
749. 1 
749 136 
94 


ee a a 
FSENSH 


754 36 
Pea O4c340 
7544 


805037 


012737 
900566 


M3059 
00 


037150 
000003 


000400 


000007 
037073 
03711 


03707 

140000 
000001 
037074 
000377 
000001 


000002 
037074 


11 8 77 
158737 000002 
000510 


000010 
037102 
000377 
000001 


7 000011 
% 037104 


8 


TEST 


006646 


037052 


037073 


002660 
002661 


037074 
037075 


002661 


037074 
037075 


002661 


03710 
03710 


002661 


037105 


c 15 
—_ 30A(1052) war’ 16:47 PAGE 185 


SEQ 184 


CMP PROTOCOL 
«WORD ERR13 

CLR TIMEOUT zINIT TIMEOUT 

9$: MOV #3. , TIMERS zSET UP TIMER 
BR ERREXT TEXIT 

“IF A "NAK" RECEIVED THEN PROCESS IT 

ibs: BIT WNAKRX,PRSTAT ;NAK RECEIVED? 

BEG 100$ ‘roma 


331F TRANSMIT wee te COUNTER = 7 THEN BUMP CUMULATIVE TXRX COUNTER 
THRESHOLD REACHED? 


BEQ 2 YES BRANCH 
ao oo :BURP TRANSIT THE SHOLD 

20S: INC RXTXTE BUMP TRANSMIT/RECEIVE THRESHOLD COUNTER 
CLRB TXTHER 3SET TRANSMIT COUNTER TO ZERO 


3333DETERMINE THE "NAK*® REASON 


-HEADER CRC ERROR ? 
$bs: alc #81T15!B1114,RHDTYP 


CLEAR SELECT & bo as FLAG 
#HEADBCC ,RHDTYP+1 HEADER cRC 


BNE 3NO, 
INCB DEROUT [LOG ERROR 
BNE 33$ [BRANCH IF NOT OVERFLOW 
MOVB #377, DEROUT [LATCH AT 255. 
32$: BISB #HEADBCC. OUTMASK :SET MASK 


sDATA CRC ERROR ? 


$$$: CMPB #DATABCC RHDTYP+1 sDATA CRC ERROR ? 
BRANCH 


BNE : 
INCB ad 3LOG ERROR 
BNE $ 3BRANCH IF NOT OVERFLOW 
MOVB #377 ,DEROUT LATCH AT 255. 
37$: B1SB #DATABCC ,OUTMASK 7SET MASK 
BR ERREXT sEXIT 


sREMOTE STATION ahd NOT AVAILABLE? 


ids: CHPB FNA,RHDTYP+1 BUFFER NOT AVAILABLE? 
BNE 4 NO BRANCH 
INCB ER ?LOG ERROR 

4 “BRANCH IF NOT OVERFLOW 

MOVB = #377,RBUFER :LATCH AT 255. 

43$: B1SB  #BNAMSK,RBMASK sSET MASK 
BR ERREXT EXIT 

-REMOTE STATION RECEIVER OVERRUN? 

A$$: CMPBURRXOV RUN, RHDTYP+1 :RECEIVER OVERRUN? 
BNE O8 BRANCH 
INCB  RMSTER LOG. ER ERROR 
BNE BRANCH IF OVERFLOW 
MOVB #377,RMSTER tLATCH AT 25 

47$:  BISB  #RXOVMSK,RMMASK *SET MASK 


CZDCLA_DUP-11 
CZDCLA.P11 


7545 


3 


NOOO 
SEALS 


un 
sooo 


Pass 
Fa) 
oa 
ah 


3 


354 


bce see 


o 


044412 
044420 
22 
044426 
0444 
36 


1SRAR-B? 18:19 


Wuswo 
oOnNNUNION 


: 


000207 


000020 
037102 


000377 
000002 


000021 
037104 


000377 
000002 


000010 


000007 
037072 


037110 
037072 


TEST 


002661 


037102 
037103 


002661 


037104 
037105 


037052 


037072 
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MACY11 30A(1052) ete 16:47 PAGE 186 
DDCMP PROTOCOL MODUL 


BR ERREXT sEXIT 


sREMOTE STATION MESSAGE TOO LONG? 


bis: CMPB #MESLONG,RHDTYP+1 :MESSAGE TOO LONG? 
BN 55$ 


E :NO, BRANCH 
INCB ER LOG REMOTE STATION BUFFER ERROR 
BNE $ BRANCH RY OVERFLOW 
MOVB = #377,RBUFER SLATCH AT 255. 
52$: BISB #MTLMSK,RBMASK :SET MASK 
BR ERREXT EXIT 


sREMOTE STATION FORMAT ERROR? 


bis: CHPB é #F ORMERR. sRHDTYP+1 zREMOTE STATION FORMAT ERROR? 


BNE :NO, 
INCB = RMSTER [LOG ERROR 
BNE {BRANCH IF NO OVERFLOW 
MOVB = #377,RMSTER 3LATCH AT 255. 
57$:  BISB #EMTASK ,RAMASK ET MASK 
BR ERREX tEXIT 


zz IF SEND NAK (SNAK=1) THEN BUMP RECEIVER THRESHOLD ERROR COUNTER 
=<> JF RXTHER = 7 THE BUMP RXTXTE COUNTER AND CLEAR RXTHER 
166s: BIT #SNAK ,PRSTAT SEND NAK ? 


BEQ ERREXT [NO, BRANCH 
CMPB s«#7. RXTHER :RECEIVER THRESHOLD = 7? 
BEQ 126$ :Y 
INCB —sRXTHER [BUMP C 
BR ERREXT BRANCH 
120$: INC RXTXTE :BUMP CUMULATIVE COUNTER 
CLRB = RXTHER SINIT RECEIVER THRESHOLD COUNTER 
BR ERREXT EXIT 


ERREXT: RETURN 


SEQ 185 


CZDCLA_DUP=11 DATA en LINK TEST 
CZDCLA.P11 


SEEE aS 


FEEPERPELERERT ESE 
Bre — 


19=MAR=82 


010246 
017737 
032737 
433 


: 
te 
13737 


18:19 


011474 
006576 
037116 
037116 
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MACY11 30A(1052) waar 16:47 PAGE 187 


DDCMP PROTOCOL MOD 
- SBTTL 


+ 

FUNCTIONAL DE 
IS SPEC 
WHEN A 


CHANGE 


IF A DA 
CONDITI 


INPUTS: 


Be Se Se Se Se Ge Ge Ge Se Se Ge Be Ge Be Se Ge Ge Se Se Se Ge Ge Ge Be Se 
; a 


BGNSRV 
MOV 


PRIN2: 


BR 
GLINC: an 
PRINI: JSR 

MOV 


zsTEST FOR DATA 


THIS ROU 


RECEIVER PROTOCOL INTERRUPT ROUTINE 


SCRIPTION 

TINE IS 
IFIED BY 
I 


IS LOGGED. 


TA INTERRUPT 
ON AND IF SET 


USED ONLY WHEN THE ‘*/PROTOCOL'’ SWITCH 
THE USER. 


D 
RX INT. OCCURS THIS ROUTINE DECIDES IF IT IS _A DATA SET 
HANGE OR DATA INTERRUPT. IF IT JS A DATA SET CHANG 

S_THE STATUS IN COMP, 


ON OF THE LI A 
MODEM ERROR HAS OCCURED. IN ANY EVENT THE MODEM STATUS 


THE ROUTINE CHECK FOR AN OVERRUN 


RMSGPT = ADDRESS OF RX BUFFER 
RMSCC 


= COUNT OF DATA TO BE RXED. 


SUBORDINATE ROUTINES USED: 
“‘LOGMSC”* 


“LGDVE" 
PRRXI 


R2,-(SP) 
@RXCSR,IRXCSR 
#MOCHK , PARAM 


PRI 

2 ot: aaa 
#FIRST, IMFLAG 
PRIN21 


MHRCNT 
#HRDMSG, TEMP2 
PRIN Ni 

MGLCNT 

#GLMSG, TEMP2 
PC, LOGMSC 
CMODS ,MODS 


- LOG MODEM STATUS CHANGE 
- LOG DEVICE ERROR 


PRRXI:: 
sSAVE R2 
a RX CSR TO IMAGE 
Y MODE 
iP "Wor IGNORE DS CHANGE. 
T OVER 


Vv 
THEN IGNORE DS CHANGE. 
FIRST TIME HERE? 


; YES, CH 
DATA SET CHANGE ? 
31F DATA SET CHANGE is NOT SET BR 
THE NEW MODEM STATUS IN 
SCLEAR BITS NOT RELATING TO MODEM STATUS 


sCOMPARE OLD TO CURRENT 
ZINC GLITCH COUNT 


HARD COUNT 
SET UP HARD MESG. 


zINC GLITCH COUNT 

3SET UP GLITCH 

G0 LOG MODEM STATUS CHANGE 
3MOVE CURRENT TO OLD 


SEQ 186 






CZDCLA_DUP=-11 
CZDCLA.P11 

7640 
7641 044656 
764 4664 
764 4 
fees Oue70 
764 b22706 
764 
7648 
7649 044710 
7650 enka: 
7651 04472 
7652 044730 
7653 044736 
7654 
7655 
7656 
7657 
7658 
7659 044740 
7660 044746 
7661 044750 
r66¢ 044754 
7663 044760 
7664 
7665 
7666 044764 
7667 044770 
7668 044772 
7669 045000 
7670 045002 
7671 045010 
rors 045012 
7673 045020 
7674 
7675 
7676 045022 
7677 045030 
7678 045036 
7679 045044 
7680 
7681 045046 
7 045054 
7 045062 
7684 045064 
7685 045072 
rene 
7687 045074 
7688 045102 
7689 045104 
7690 
7691 0451 ie 
7692 04512 
769 
7694 


® 
Ww 
_ 
~ 
™ 


1 


ATA 4 LINK 
“82 1 "19 


032737 
sire 


17737 
032737 


000400 
000002 
011514 


000001 
037065 
001000 


100000 
000001 
000040 


000003 


037052 


037107 
037070 


037052 


037140 
011476 
037052 


037052 
002664 
037052 


002660 
037134 
037140 


037052 
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MACY11 leet 23-MAR-82 16:47 PAGE 188 
RECEIVER PROTOCOL INTERRUPT ROUTINE 



















SEQ 187 


PRIN21: BIT #RXDONE,IRXCSR ;RX DONE ? 
“ 10$ te 


PRINEX 
10$: MOV @RXDBUF,IRXDBUF :READ DATA 
BIT RERR, IRXDBUF OVERRUN ERROR ? 


BEQ PRING NO, BRANCH 
z21F AN OVERRUN THEN LOG ERROR, SET NAK REASON TURN OFF ont & EXIT 
WSNAK,PRSTAT ~ ;TEL CODE ABOUT OVERRUN ERROR 


INCB LOSTE Log. LOCAL STATION E ERROR 
BIS8 #RXOVMSK,LSMASK ;SET RX OVERRUN MASK BIT 
MOVB #RXOVRUN,REANAK ;SET_REASON FOR SENDING _NAK 
BR PRINS 3G0 TURN OFF RX AND EXIT 


3331F IN MULTI-POINT MODE AND NOT MY ADDRESS THEN JUST BUMP CHAR COUNT 


>STORE AWAY DATA 
BRING: BIT #MYDATA, »PRSTAT ;STORE THIS DATA ? 


:NO, BRANCH 
MOV RMSGPT .R2 [SET RX MESSAGE POINTER 
move 1RXDBUF (R2)# STORE DATA AWAY 


2, RMSGPT :SAVE UPDATED MESSAGE POINTER 
-:DECREMENT CHARACTER COUNT 
ids: DEC RMSGCC sALL DATA RECEIVED ? 
BNE PRINEX 
BIT #BCC.PRFLAG 3 CHECK CRC ? 
BEQ PRI BRANCH 
BIT #CRCOK,IRXDBUF =CRC’GOOD ? 


YES ,BRANCH 
BIS #BCCBAD ,PRSTAT ; TELL MAIN CODE ABOUT CRC ERROR 
BR PRINS DISABLE INTERRUPTS AND EXIT 


;;IN ORDER TO CHECK oe WE MUST READ 2 MORE CHARACTERS(CRC) 
PRIN6: BIS #BCC PRFLAG sSET CRC ALREADY CHECKED FLAG 
MOV #2,RMSGCC COUNT TWO C CTERS 
MOV #8 CW ,RASGPT 7CRC_STORAGE ADDRESS 

BR PRINEX EXIT 


PRINS: pe WBCCOK,PRSTAT ;TELL 71 CRC HAS BEEN CHECKED 


MPB s-TRIBN,RHDADR = : MY _-MESSA 
BEQ ;YES BRANCH 
BIC WMYDATA,PRSTAT :DON'T STORE IT 
BR s, :BRANCH 
SELECT BIT SET ? 
bi. eT #81T15,RHDMCC : SELECT BIT SET? 
MOV #1, SELECT ‘WE NOW HAVE THE RIGHT TO TRANSMIT, IF HALF-DUPL 
7$: BIT #RXM, PRFLAG :READ DATA MESSAGE ? 
BNE PRIN? [NO, BRANCH 


32SET UP_TO READ IN DATA PART OF MESSAGE 
BIC #BCCOK!BCCBAD,PRSTAT ;CLEAR FLAGS (USED IN PROTOCOL CODE) 








STORLA DUP=11 DATA COMM. LINK 
82 18:19 


~ 
3333 
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ery 
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A=n=2B0969 


UMMM 
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3 


UNNN UNNANON 


BONN 
BABS RBSERVS 
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WWA 
Ye 


: 


3 


Ww 
= 
~ 
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3 
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7704 
7705 
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7707 
7708 
7709 
7710 
7711 
ar 
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7714 
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7717 
7718 
7719 
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7740 
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SEQ 188 
MACY11 eet. 23-MAR-82 16:47 PAGE 189 
ECEIVER PROTOCOL INTERRUPT ROUTINE 


BIS ARXM, PRELAG :SET DATA MESSAGE READ FLAG 
BIC #BCC.PRFLAG LEAR CRC CHECKED FLAG(USED BY THIS ROUTINE) 
BIC weitisieitis, apices ICLEAR SELECT & OS BITS 


3321S ALLOCATED yy PA SPACE LARGE ENOUGH FOR MESSAGE? 
CMP . RHDMCC #512. sWILL a FIT IN ALLOCATED BUFFER? 


33MESSAGE TOO LONG !! LOG ERROR 
INCB LBUFER LOG LOCAL ee ERROR 

BISB #MTLMSK ,LBMASK SSET MESSAGE TOO LONG BIT 

MOVB #MESLONG REANAK ;SET REASON FOR NAK 

B1S8 ASNAK ,PRSTAT SET SEND NAK FLAG 

BR PRINS sTURN OFF RX & EXIT 

NE 


zz IF A NEW BUFFER IS AVAILABLE 

:*SET BUFFER AND CHARACTER COUNT FOR MESSAGE 

103: TST RXPRC :NEW BUFFER AVAILABLE ? 
BEQ 15$ 7 YES BRANCH 
Ince LBUFER [LOCAL BUFFER ERROR 


$ 3 
MOV 135, LBUFER [LATCH A 255. 
12$: BISB $#BNAMSK,LBMASK :SET MASK 

MOVB  #BUFFNA,REANAK SET NAK REASON 

BISB &#SNAK,PRSTAT  :SET "SEND NAK FLAG 

BR PRIN? TEXIT 
15$: MOV DVRXA.RMSGPT ;MESSAGE BUFFER ADDRESS 

MOV RHDMCC,RMSGCC :CHARACTER COUNT OF MESSAGE 

mov RHDMCC *DVRCC sTELL MAIN CODE HOW LARGE MESSAGE IS 


mo 3 


sMESSAGE COMPLETE 


PRIN 7: BIS #QRX ,PRFLAG sSET MESSAGE COMPLETE FLAG(USED BY MAIN ee 

BIS #RXD,,PRSTAT *MESSAGE COMPLETE(USED BY PROTOCOL MODULE) 
PRINS: CLR TURNON 3RX NOT ON 

BIC PRINTEN*RXENA, ARKCOR ; TURN OFF RECEIVER 
PRINEX: MOV (SP)+,R2 sRESTORE R2 

ENDSRV 

L10022: 
RTI 





CZDCLA_DUP=11 DATA C 


CZDCLA.P11 
774 

774 

7744 

ore? 

ri 

7748 

7749 

7750 

7751 

775, 

775 

7754 

7755 

7756 

7757 

7758 

7759 +=045336 
7760 045344 
7761 045352 
7766 045354 
7763 045362 
7764 045364 
7765 045370 
7766 

7767 

7768 

7769 045372 
7770 045376 
7771 + 045400 
7772 045404 
7773 ~=045406 
7774 045412 
its 

045414 
7778 sta 
7779 =0454 
7780 045436 
7781 045442 
ree 045446 
045454 

7784 063626 
rae Biss 
89 be8cr4 
7788 053876 
7789 045504 
7790 853206 
7791 5514 
ha} 045516 
779 

7794 

7795 

7797 +=045520 


19-MAR 


013737 
Doel ae 


052737 


. LINK TEST 
18:19 


037052 
000100 
000003 
037126 


037142 
037134 
042104 


0371 
03706 


hat 


saa 


000020 


MACY11 yet 


H 15 
23-MAR-82 16:47 PAGE 190 


RECEIVER PROTOCOL INTERRUPT ROUTINE 


-SBTTL PROTOCOL TRANSMIT ROUTINE 


. 
ee 
ee 
ee 
ee 
ee 
ee 
ee 
ee 
ee 
ee 
ee 
ee 
ee 
ee 
ee 
ee 


"FUNCTIONAL DESCRIPTI 


ie; ME 


ON: 

ROUTINE IS USED TO SETUP EITHER CONTROL MESSAGES OR 
SSAGES FOR TRANSMI ° 

F THE SEND ACK(SACK) IS SET AN ‘ACK® MESSAGE WILL BE SETUP 


AND_T ED. 
IF THE SEND NAK(SNAK) IS SET A ‘NAK* MESSAGE WILL BE SETUP 
AND_TRANSMITT 


ELSE A DATA MESSAGE WILL BE SETUP AND SENT 
NETWORK HALF=DUPLEX THEN REQUEST TO SEND(RTS) WILL 
BE ASSERTED BEFORE TRANSMISSION. 


IF TH 


037136 TXPROT: MOV PRSTAT, IMPRSTAT 
006576 BI I #PRORUN PARAM 
006570 CMP #ACT MODTYP 
BNE 7$ 
5$: TST TXREADY 
BEQ 5$ 
BEFORE WE C 
53: TST 
BEQ aS 
6$: TST SELECT 
CALL §_ RXPROTO 
8R 6$ 
DETERMINE WHAT TO SEND 
037052 88: MOV IMPRSTAT, PRSTAT 
002652 MO TRIBN,HDMADR 
006602 BIC #PAD FL LA 
CLR XREADY 
CLR oeect 
037052 BIT #SACK ,PRSTAT 
037052 BI I ASNAK ,PRSTAT 
037052 BIT #SSTART,PRSTAT 
037052 BIT #SSTACK,PRSTAT 
037052 BIT #SDATAPRSTAT 
BNE 100$ 
HAL 
SETUP TO SEND AN ‘ACK’ 
006602 ids: als #TXM,FLAG 


sSAVE_A COPY OF FLAGS 
sPROTOCOL RUNNING ? 


NO, BRANCH 

SACTIVE MODE? 

*NO,BRANCH 

: TRANSMITTER READY FOR MESSAGE ? 
BRANCH 


se1F HALF DUPLEX ee eiadtateamaas LINK, WE NEED THE SELECT BIT 
HD 


HA DUPLEX AND PT TO PT ? 
BRANCH 
£OK TO SEND ? 


7 YES, BRANCH 
760 WAIT ON SELECT BIT 
zTRY AGAIN 


sRESTORE ORIGINAL FLAGS 

3SET TRIB ADDRESS 

ZTHIS BIT USED IN TX INTER ROUTINE 
: TRANSMI 

31F HALF DUPLEX/MTP MODE 

3 SEND ACK 

5 BRANCH 


ise ENS AK 
BRANCH 
SEND START ? 


BRANCH 

$SEND. STA START ACKNOWLEDGE ? 
YES BRANCH 

SEND DATA MESSAGE ? 

3 YES BRANCH 
[FATAL ERROR 


3SEND HEADER ONLY(USED IN TX INTER. ROUTINE) 


SEQ 189 
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SEQ 190 

CZDCLA DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR=-82 16:47 PAGE 191 
CZDCLA.P11—s 1 -82 18:19 PROTOCOL TRANSMIT ROUTINE 

7798 $526 112737 900005 002645 MOVB  #ENQ,HDMID :CONTROL MESSAGE 

7799 55 1 7 1 002646 MOV #ACK ,HDATYP sACK CONTROL MESSAGE 

7800 2348 52737 002646 BIS #BITIS!BIT14,HDMTYP ;SET SELECT & QS FLAG 

7801 04399 737 (03714 TST HDXMTP sHALF DUPLEX OR MULTI = POINT 

7808 5554 901415 BEQ 20$ :NO, H 

780 045556 005737 037122 TST TXPRC SANY THING TO SENT ? 

7804 045 901012 BNE 20$ 3 

7805 045564 737 000100 006576 BIT #PRORUN,PARAM PROTOCOL RUNNING? 

7806 045572 0014 BEQ 20$ NO, BRANCH 

7807 045574 042737 100000 002646 BIC WBITIS,HOMTYP CLEAR SELECT BIT 

7808 04560 1 7 1 037134 MOV #1,SELECT [WE HAVE SOMETHING TO SEND, SO KEEP THE LINE 

7809 045610 113737 037064 002650 208: # MOVB  R,HDMREP SSET RESPONSE NUMBER 

7810 045616 105037 002651 CLRB sod SFILLER 

7811 04 042737 000004 037052 BIC MSACK,PRSTAT CLEAR SEND ACK FLAG 

812 045 000526 BR 200$ 260 SEND IT 

7814 

7815 -: SETUP TO SEND A "NAK® 

7816 045632 052737 00002 906602 S6s: BIS ATXM, FLAG :TELL TX INTERRUPT TO SEND HEADER ONLY 

781 5640 112737 000005 00264 MOVB  #ENQ.HDMID [CONTROL MESSAGE 

7818 045646 012737 2 00264 MOV Pp 7 "NAK' 

7819 045654 113737 037070 00264 MOVE —REANAK -HDMTYP+1_ZREASON FOR NAK 

7820 045662 052737 140000 002646 55$: BIS #B1T15!BIT14,HDMTYP ;SET SELECT & QS FLAGS 

7821 045670 105037 002651 CLRB -HDMNUM :FILLER 

7822 045674 113737 037064 002650 MOVB  R, HDMREP SLAST MESSAGE RECEIVED CORRECTLY 

7823 045702 042737 000010 037052 BIC #SNAK,PRSTAT = CLEAR SEND NAK FLAG 

782k 045710 000476 BR 200$ :60 SEND IT 

7826 

7827 :; SETUP TO SEND START MESSAGE 

7828 045712 052737 000020 906602 60s: BIS #TXM, FLAG :TELL TX INT. ROUTINE TO SEND HEADER ONLY 

7829 045720 112737 000005 00264 MOVB  #ENQ.HDMID [CONTROL MESSAGE 

7830 043726 012737 000006 002646 MOV #STRT.HDMTYP §:START MESSAGE 

7831 045 052737 140000 002646 BIS #B1T15'BIT14,HDMTYP ;SET SELECT & QS FLAGS 

7832 045742 105037 902650 CLRB -HDMREP :FILLER 

783 5746 105037 002651 CLRB § HDMNUM FILLER 

7834 04575 2737 004000 037052 BIC ASSTART,PRSTAT :CLEAR SEND START FLAG 

7835 045760 000452 BR 200$ :G0 SEND IT 

7837 -: SETUP TO SEND STACK MESSAGE 

7838 045762 052737 000020 906602 70s: = BIS #TXM, FLAG :TELL TX INT. TO SEND HEADER ONLY 

7839 045 112737 000005 00264 MOVB #ENQ.HDMID [CONTROL MESSA 

7840 045776 o1 737 7? 002646 MOV MSTACK HDMTYP —:START ACKNOWLEDGE MESSAGE 

7841 52737 14 2646 BIS #81715'B1T14,HDMTYP sSET SELECT QS FLAGS 

784 12 105037 0026 CLRB  HDMREP :FILLER 

7843 046016 105037 631 CLRB §-HDMNUM FILLER 

7844 @2 012737 177777 037124 MOV #1, ASTRT [START HAS BEEN ACKNOWLEDGED 

7845 737 002000 037052 BIC MSSTACK,PRSTAT [CLEAR SEND STACK FLAG 

7846 6036 800425 BR 200$ [60 SEND IT 

784 

94 >: SETUP TO SEND DATA 

7850 0 042737 2 100$: BIC #TXM, FLAG :TELL TX INTERRUPT TO SEND HEADER + DATA 

7851 046046 112737 201 #SOH.HOMID [DATA MESSAGE 

785 54 013737 00 646 MOV DVTCC HDMCC “CHARACTERS COUNT 

7853 046062 052737 14 0 BIS #BITIS'BITI4,HDMCC ;SET SELECT & QS FLAGS 





CZDCLA DUP-11, DATA C LINK 
CZDCLA.P11 BOMARSB 18519 


7854 046070 113737 037064 
7855 046076 113737 037062 
ree 046104 

785 

7858 

7859 856108 ete 036576 
7860 046112 052737 004000 
7861 

rg: 046120 012737 002645 
7864 gees? 012737 

7865 0461 012737 000020 
7866 

7867 

7868 046142 005737 006574 
7869 046146 001004 

7870 046150 052777 000130 
rer 046156 

7873 046160 052777 000120 
7874 

7875 

7876 

7877 

7878 

7879 046166 005737 037142 
7880 046172 100 

7881 046174 022737 000003 
ress 046202 100 

7883 046204 

7884 

7885 046206 

7886 046206 104422 

7887 046210 005737 037126 
7888 046214 001774 

7889 

7890 

had 046216 004737 037010 
7893 046222 000207 

7894 

7895 

7896 

7897 

7898 046224 

7899 046224 

7900 24 104401 

7901 

790 

790 


006570 


J 15 


MACY11 30A(1052) ae 16:47 PAGE 192 
PROTOCOL TRANSMIT R 


SEQ 191 


MOVB = R, HDMREP ZLAST MESSAGE RECEIVED CORRECTLY 
MOVB «TT .HDMNUM STHIS MESSAGE NUMBER 
BR 260$ :G0 SEND IT 
GO SET "REQUEST TO SEND’ 
560$: - JSR :G0 SET REQUEST TO SEND 
ais WFIRST,IMFLAG :TELL THE CTSSR SUBROUTINE TO SKIP DELAY 
SETUP T To TRANSMIT HEADER PORTION OF MESSAGE 
5408: #HDMID ASGPTR ;HEADER MESSAGE ADDRESS 
MOV #6 .MSG CTER COUNT OF HEADER = 6 
MOV #26, Stnec ? NUMBER OF SYNCS TO TRANSMIT 
zz SEND THE DATA 
TST EHDPLX $FULL DUPLEX? 
BNE 215$ YES, BRANCH 
BIS HSEND!TINTEN!MDPLX,BIXCSR ZENABLE FOR HALF DUPLEX 
215$: BIS #SEND!ATINTEN,@TXCSR ; TURN ON TRANSMITTER 


+e A ACTIVE MODE, TURN ON TX AND GET OUT IN A HURRY 
NOTE: START UP SEQUENCE OPERATES LIKE HALF-DUPLEX 


2178: ea HDXMTP sFULL — PT-PT? 


0$ 
CMP #ACT MODTYP tACTIVE MODE ? 
BNE 220$ NO, BRANCH 
BR TXPREX ZEXIT 
220$: BREAK 
TRAP 
TST TXREADY :TX FINISHED ? 
BEQ 220$ [NO, BRANCH 
IF HALF=DUPLEX OR MULTI-POINT REQUEST TO SEND WILL BE DROPPED 
5$0$: JSR PC, CLRRTS :DROP RTS IF HALF DUPLEX 
TXPREX: RETURN zWE ARE DONE ! 
EVEN 
ENDTST 
L10017: 
TRAP 


CSBRK 


CSETST 











K 15 


SEQ 192 
CZDCLA _DUP=11 DATA com. LINK TEST le 30A(1052)_ 23-MAR-82 16:47 PAGE 193 
CZDCLA.P11 19=MAR=82 18:19 HARDWARE PARAMETER CODING SECTION 
T303 -SBTTL HARDWARE PARAMETER CODING SECTION 
1908 
7909 3 "TH E HARDWARE PARAMETER CODING SECTION tse: MACROS 
7910 3 THAT ARE USED BY THE SUPERVISOR TO BUI $s. 7 
7911 3 MACROS AR ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT _ARE 
feat 3 INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
791 3 MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
7914 : _WITH THE OPERATOR. 
7915 3= 
7916 
7917 046226 BGNHRD 
7918 046226 000030 -WORD L10023-LSHARD/2 
7919 046230 LSHARD: : 
al 
als -SBTTL DEVICE INDEPENDENT SECTION 
7924 046230 GPRML  DPLX,0,1,YES 
7925 046230 000130 -WORD TSCODE 
7926 046232 046310 WORD DPLX 
7927 046234 000001 - WORD 
7928 
7929 
7930 
7931 
7932 - SBTTL DEVICE DEPENDENT SECTION 
GPRMA  CSRADR,2,0,160000,177776, YES 
WORD TSCODE 
WORD CSRADR 
WORD TSLOLIM 
-WORD TSHILIM 
GPRMA VECTOR,4,0,300.776,YES 
-WORD TSCODE 
WORD VECTOR 
WORD TSLOLIM 
WORD TSHILIM 
GPRML RNODM,14,1,YES 
-WORD TSCODE 
-WORD PNODM 
- WORD 
XFERT ENDHWL 
-WORD TSCODE 
GPRML PTPMLP,10,1,YES 
WORD TSCODE 
WORD PTPMLP 
WORD 1 
XFERF ENDHWL 
-WORD TSCODE 


GPRMD TRIBNQ,12,D,-1,1,255..YES 
WORD ITSCODE 
TRIBNQ 





=1 
WORD TSLOLIM 





CZDCLA_DUP=11 qbena C 


CZDCLA.P11 


SERERS 


046 
04631 


046310 


046310 


000377 


052506 


SoMARCO? 18:19" 


046114 


NK TEST 


042040 


L 15 
MACY11 30A(1052) 23=MAR-82 16:47 PAGE 194 
DEVICE DEPENDENT SECTION 


ENDHWL: ENDHRD 


eNLIST BEX 
sDEVICE INDEPENDENT QUESTIONS 
DPLX: .ASCIZ /FULL DUPLEX OPERATION : / 


sDEVICE DEPENDENT QUESTION 


CSRADR: .ASCIZ /DEVICE CSR ADDRESS : / 

VECTOR: .ASCIZ /INTERRUPT VECTOR ADDRESS: / 
RNODM: .ASCIZ /REMOTE NODE “‘ITEP"':/ 

PTPMLP: :ASCIZ /1S THIS A MULTIPOINT Y sions / 
TRIBNQ: .ASCIZ /ADDRESS THIS STATION:/ 


LIST BEX 





SEQ 193 


-WORD TSHILIM 


EVEN 
L10023: 


M15 


CZDCLA DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052)_ 23=MAR-82 16: :47 PAGE 195 
CZDCLA.P11 19=MAR=82 18:19 DEVICE DEPENDENT SECTI 


7970 ;.SBTTL SOFTWARE PARAMETER CODING SECTION 

797 + 

797 2 THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
797% : THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
7975 : MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
7976 i INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
7977 + MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
7978 ; Wl TH THE OPERATOR. 

7979 :- 

7980 

7981 : BGNSFT 

7982 

7983 

7984 

7985 ; ENDSFT 

7986 

7987 

7988 

7989 PYePePEPee eee eee eee errr rier 

2990 =” TEMPORARY PATCH’ AREA’ ~" FOR’ DEBUG PURPOSES 

7992 

7993 046532 SPATCH: 

7994 046532 000030 -BLKw 30 

7995 

7996 

7997 046612 LASTAD 

7998 

7999 046612 000000 

8000 046614 000000 

8001 046616 LSLAST:: 

800 046616 ENDMOD 

8004 000001 END 





CZDCLA_DUP-11 DATA 


_ 
3 NUS oo 
= 
a“ 


SoOoooooo-o 
SNNUWNUI— PO 


BASES 
= 


PAAAAA AAAI 


soo 
el] 
_ 


ce 


PUPA AMAA AAAAMAMAM AIAN 


UMNNMWOWNIN =O 
= 


SNS 


RS 


SMNWWS 


UW = 
Wn & Co = CoN 


aed aed ced ed ed eed ed —_ 
Roo RES oO ons Nm 
ooo SOoooo 
—O000—O Onan 


Wn 


ageee 


aes 
Pé 


Mune 
Fanon 


AAA AMAAMAAAAAA AMAIA 


4 
OR 


> 
o 
3 = 
Soooooo 
pe 


Lo) 
uw 


COMM. LINK TEST 
-82 18:19 


7247* 
4693 


#235 
4 
r4 
1 


3 
0 
3 
2 


1 
1 
1 
1 


PAA 


3 
4 
7. 
9 
1 
0. 
5 
7 
7 


1 
1 
1 


MOuMcu 
VSN SUS 


NININYS 


PEE ARWWWEWE 


YL UNWIN Wie ONIN sea ~ - Setcea N“N VUIW=— Of ONW— fy 
So N= OM ONYVONVM 


580 
799 
5267 


51764 


5279 


5320 


7415* 
7298 
5347 


5282 


3323 


N 15 


MACY11_ 30A(1052)_ 23=MAR=82 16:47 PAGE 197 
CROSS REFERENCE TABLE == USER SYMBOLS 


7346* 


5600 6954 7250 8=— 7425 7762 


53474 

53574 

5259 238%, 52644 
5246 525 


5285 5289# 


53274 


SEQ 195 


CZDCLA 11 DATA C LINK TEST 
cibeua Ph 1DoARCBS i8c19 
ACTRNF 021 9 97" 
ACTRNL 6 1365 ; 984 
ACTRPS 0316 3 % 
ACTRSO 0214 92 84 
TRUN 34 23 
ACTSEX 03125 564 
CTSHO 14 021 zo 
CT 5 110 1 
ACTSTE 0¢ 1824 
ACTSTS 0315 0 31 
ACTST 710 02 1854 
ACTSTX 716 1 1 
ACTS 72 2028 1894 
ACTTAL 0314 48 é 74 
ACTTLP 031 505 53398 
Aspe O38 Sele  258t" 
ey eas ae 
ADR = 6 1874 
ALCK 32 680 54998 
ALCK1 554 55 
ALCK2 032524 5568 55778 
ALC 032774 5617 56224 
ALCK3 033020 5587 5624 
ALCK3A Os3112 5634 5640" 
ALCK3B 033124 5641 56430 
C 033120 5638 © 56424 
CK4 033146 5628 40-5647 
ALCK4A 033154 5646 60: 56504 
ALCK4B 033166 5651 5653 
ALCKS 032400 55534 5642 
ALLTR 032400 5431 5454 
ASS 00001 1959 
ASTRT 037124 764M 6936% 
AT 900027 3254 2822 
BAD 555 74 049 
BADC 51 34 (291 
BASM1 oi 07 0354 78 
BA 15500 0354 97 
BA 015471 35¢ 3889 
BCC = 000400 22798 6199 
BCCBAD= 2 164 71 
BCCOK = 1 68154 71 
BCCW 11514 989% 641 
BDCLK 14210 354 4364 
BITO. = 16 1604 22 
BITOO = 16 1498 160 
BITO1 = 26 1484 21 
BITO2 = G 1478 138 
BITO3 = 10 G 1464 15 
BIT04 = G 1458 136 
BITOS = G 1444 215 
BIT06 = 000100 G 1434 2154 
gigs = Sue SIE Ss 
= 
B1109 = 000 G 1404 134 


B 16 
MACY11_30A(1052)_ 23-MAR-82_ 16:47 


CROSS REFERENCE TABLE -- USER SYMBOL 


51434 5162 


4993 


55674 5620 
5652 


56274 


5649 


5478 550% 55524 
7403 = 7844* 
5728+ 


6398 6416 6439 6554 


20 
18 7672 = 7695 

e414 7386 = 76811 7695 

7678 


2267, «3539S 3610s“ 6792 ~—Ss« 6795 


PAGE 198 
s 


7118 


6815 


7697 


SEQ 196 


CZDCLA pent. 
CZDCLA.P11 


CLIALP= 000006 

SHES Biss 

CLIBIF= 000003 
= 


CLIBR = 000002 


CLIBRX 11700 


Cc 
11603 
CLIERR= 600000 


CLIEXI= 000001 
CLINSG 116 
CLINPS HK: 
Ce 

Bile 


CLIRT 


HDADAAAAAAAAAAAAG 


at ik TEST 


aE 


WEELELE 
Bese SSNS 


a SO 
MMA 


S3s 
SRS 


af 


ase 


& 


2377 


3395 


7698 


SRSS SASS 


i. 


4090* 
5073 


2921 


3478 


3613 


3935 


4806* 


2803 


C 16 


MACY11 30A(1052)__23-MAR-82 16:47 PAGE 199 
CROSS REFERENCE TABLE -~ USER SYMBOLS 


6793 


78 

reer 
6791 
6819 


" 
$597 


5139 


3947 


4814 


2842 


6794 


7831 
ht 
681 


5396 
6822 
5405 


4066 


4992 


2844 


6816 


7841 
7800 


4921 


4997 


2954 


7807 


4962 


5117* 


Monon 
~© 00 00 
nm 

on 


3462 


7820 


5132 


3464 


7831 784° 


5401 


ai 


3466 86 3468 


7853 


3473 


SEG 197 


D 16 


SEQ 198 
DUP=11 DATA C LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 200 
SePCLA 1DonARceo 8c) ER SYMBOLS 









CZDCLA.P11 9 CROSS REFERENCE TABLE -- US 
CLISEO O08005 Hd $00 
CLISPA= 19 B09 B04 857 15 60 
79 04 80 811 13 822 4 
Eye : eee esas eee 
CLITRE 007714 7918 2538 7 = E : : ~ 
CLISPM 011570 Ed $753 
sg NEL 54 ieibe 
LKC +1 tA so)" 3 see 4520 = 4538* §=64539% 4540" 4550" 4685* 4773 
CLKEN 6914 3 42. «4 § * 4561% 46550 4773 
CLKHZ geez? tty 224 = 3239s: 3357 4554 4572 
i an ee 
ELKVEC 3 6894 4518* 4548« o6e8 
sens tees SS, GE GEIS guar Tm 
Ss Oiiere Hs eeu: eaeee $8) e379 7625* 7626* 7627 7637 
CMPPTR 006444 34 64072" 4073* 4086 4087* 4088 4092 4801* 4813 4976* 4990" 4991 4995* 
Ex 033662 Sioas $105. 5114* 9511 5379* 5692 
ee ie, 
2 nC 
033430 57484 
CMPSSA 033434 5741 57498 
ee tet Bs ets, S75 
aay sane spr 308i 40846 4093* 4818% 4974% 4977 4996* 5107 S111* 5366 5382 
a 
CMSG1 = 000021 319% = §62895 
ae = 0000. § 350 899 
CMSG$ = 00002 14 1 
fee es ERE Bh 
CMSG6 = 000026 23248 7 
C 006550 26444 8 3122 
55 5a 
PIR ooes24 26548 ? 3984* 4809 4813* 4949" 4953 4991" 4995 
ae 475* $5500* 5569 5574* 3333 5642* 5650 363)° 
CPTRR 006522 Ss 5427* 5453" 5476* 5502* 555 5541* 5599* 5604 
CR 16534 30 3560" ang: 
cree = 900020 Bs 5319 
a 
ee Oi Oobe iat : 7670 
CSHTRN= ‘9494 3 3 
SRADR Bee 1 9664 
crorec 50 § # 4080« 4088 4090 4091* 4096+ 4796* 4961 4972 
cis = ioe 2714 $6 
CTSSR 576 609 61 6255 6504  6606# 7859 
CTSS3 036646 661 66214 





E 16 
SEQ 199 


CZDCLA DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 201 
CZDCLA.P11 1 -82 18:19 CROSS REFERENCE TABLE -- USER SYMBOLS 
cTss4) (OO 4 66154 6619 
ta 6 63 a 9 td 989 9992 4808* 4814% 4950* 4955 4992 4997 133 402 
® ® ® 
cuRCC 0065 a ] 3e8 3345. 3350 3983 3988 3999 4804* 4816*  5135* 207* 3395 
48% $ 1* 255% 401* 
CSAU_ = 000052 19594 46753 
CSAUTO= 1 19594 4674 
CSBRK = 000022 19594 20 6075 6114 6278 6574 6617 6634 7153 7886 
CSBSEG= 1959 
SUB= ieee | 19594 
CSCEFG= 00004 19594 
SCLCK= 19594 4523 4533 
CSCLEA= 00001 19594 4710 
SCLOS= 00003 19594 
CSCLP1= 000006 19594 
CS$CVEC= 000036 19594 
$0 000044 19594 4491 
000051 19594 
CSDRPT= Bes 19594 
= 000053 19594 4731 
CSEDIT= 000003 19594 2023 
CSERDF= 000055 19594 
CSERHR= 000056 19594 
CSERRO= 000060 19594 
CSERSF= 000054 19594 
CSERSO= 000057 Ed 5713 5731 5744 5787 6031 6069 6137 6290 6408 6430 6648 7468 
CSESCA= 000010 19594 
CSESEG= 000005 19594 
CSESUB= 000003 19594 
CSETST= 000001 19594 
CSEXIT= 000032 19594 4650 4702 4851 4911 
C popes 19594 
C$GETW= 27 19594 
C 19594 3417 4552 4861 5872 
CSGPHR= 000042 19594 4587 
C$GPLO= 000030 19594 
CSGPRI= 000040 19594 
CSINIT= 000011 19594 4658 
CSINLP= 000020 19594 
CSMANI= 50 19594 4845 
fSnse : 35 i3eo8 3051 3064 3078 3092 3112 3132 
= 
CSPNTB= 000014 i3eo8 3047 0 074 0 1 1 
CSPNTF= 000017 19594 3065 396 3009 3088 3103 3188 3567 3881 3892 3900 eer} 4326 
$369 $307 of 2858 289) 289 ogee sere 4969 4985 5085 158 5203 
CSPNTS= 000016 ekg 3338 $3 603 it i$? 3675 3689 3702 3715 3723 3750 3764 
CSPNTX= 000015 19594 
C$QI0 = 000377 19594 
eeore: Sone 188ae ERE aso1 ass ste 
CS$RESE= 000033 1959# 4 
C$REVI= 000003 19594 2022 


F 16 


Q 
MACY11 30A(1052) 23=MAR-82 16:47 PAGE 202 cmt 
YMBOLS 


CZDCLA_DUP=-11 DATA COMM 
19SMAR 


~~ 
— 
© 
“+ 
Mm 
n 
~ 


CZDCLA.P11 =82 18: CROSS REFERENCE TASLE -- USER $ 
CSRFLA= 000021 19598 
CSRPT = 5 19598 4459 
CSSEFG= A 19598 
SPRI= 5 19598 4648 4688 
CSSVEC= 000037 19898 4626 «4636. 4643 GB3S.—«6923 
CSTPRI= 000013 19598 
DATABC= 000002 Bik 739% 21 7526 
TAWO 006 § G503¢ $307" 65 
DATCKB= 00000 3Sp 4152 $313. $366 «5449 «5596 «5645 «5689 «= 5866 5936 
DCD = 010000 27g 6625 
= 000014 3368 | 331 
DCLFLG 006566 6348 4487 4489" 49098 
= 000022 26a $528 
DER = 000010 Zon 3505 
DERIN 037076 G7Si# 718Re 7190 72804 7282 7391" 7393s 
T 037076 7358 7514" «75168 «= «7523" 75258 
DEV]. 007704 Zri# $708 719° 3727" 37294 4124 4B RB 5165 
DEV2 007706 7ren 3709 S718 $728 37306 61274839" 51668 
DEVS «007710 77 73l* 4134 4840" 51658 
V4 907712 oye 63732" «4148 «4152. 41564161 4166 4841® «51668 
DOFPTBL 0021 G 0. 
DIAGAC= 9 
DIVN9T 034772 glia gii6 
DLE = 000020 321 
DLL 033570 5681 58378 
DLLCM 014130 Sosse $839 
DLLMOD= 000033 33298 2830 
DMPE = 000053 345" 5860 
DMPO = 000054 3460 © 9862 
OMPS, = 900052 3448 5858 ©4903-5172 
DMSGAD 00217 24258 5991 
DMSGCT 002150 5410" 3990 
= 000004 215e 5281 6051 
DPLX 046310 2 79668 
DPV = 000000 53468 
DSCA = 100000 5$068 
DSITEN= 000040 25808 6212 6560 7126 
DSR = 001000 367k 371 
DTR = 000002 3778 $093 
DUMEX 0232 303 
DUMPSR 0231 se7G8 4905 
DUM! 023222 884 984 
pum 025244 $894 39008 
3760 sie 390 
DUM, 023134 S875" 3906 
DUPPAR 011470 9734 5393" 5390" 6079 
DVEMO. 016747 035¢ 8025. 603 
DVEM! 017026 0558 6642 6680 
DVEN2 17110 0358 6284 6292 7480 7488 
DVE 17205 035¢ 6404 641 
DVEM, 1724 0554 6424 G45 
DVEMS 01731 035@ 6131 «6139 «74627470 
OVENS 0173 0554 6065 607 
OVA NEX” 055430 ghee" Zant (60 6085 6112 6124 «6 144a 
DVINIT 034306 35 ORL, 8083 8088 








G 16 
CZDCLA 11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 203 
1DARARCEO iettd 


CZDCLA.P1 CROSS REFERENCE TABLE -- USER SYMBOLS 
DVINI 04 398 

DVI 0 e4 
DVI 74 605 73 

DVIN31 et 0 65544 

oVI 0 5 
OVI 574 65854 
DVINSS 524 6578 
DVI 0365 one6 
DVINS? 03460 604 60794 

eying 03451 6078 
DVINSD 0 60744 
DVING 03470 
DVING1 034 1%. 
VINS 035014 611 6127 
DVINS1 0350 6117 6122—s« 61314 
IN9 03472 6126 

DVMEX 351 
Dd 3515 gi 6624* 
DVRCC 7 560* 5589 5943* 5958 5960* 5961*  6205* 42* 7725 
DVRCT 74 5428* 5501* 5598*  5602* 5622* 5623 5693* 750* 
DVREX 035270 Sele 

DVRXA 58* 5588 5941* 5957 5960 6203 6440 7723 
DVRXI 035556 G 4832 63584 

DVRXQ 035170 5952. 61964 

DVRX2 035246 petty 

DVRXS 035262 124 

DVTCC 006456 5573* 5630 5891* 5905 6260 6266 6517 7852 
DVTCT 5451* 5474% 5499%  5632* 5637 5640 
DVTREX 035554 6306 63114 

DVTRI 035 62644 

DVTR2 035376 62684 

DVTRS 035412 62754 6294 

DVTR4 035520 4 
DVTRS 037050 7 
DVTR8 any 6303 6309 

DVTXA 006454 5571* 5629 5888* 5904 6259 6516 

VTXI 036230 G 64894 

DVTXRX 035272 5899 5954 62524 

VTXR1 037006 66534 

edhe 036722 $638 

DVTXR4 ) 243 $6250 

TXRI O35 008 geen" 

ECHO = 5 876 

ECHOB = 4156 5289 5299 5309 5591 

ED 812360 354 

EDDCK 15 2§ 354 

E 015 354 5733 5746 

EDDER 15235 354 

EDDLE 15 0354 5715 

EDDVI 15 ‘ 0354 

EDEOP 1346? 0354 

EDMOS B18 0354 

EDRXC 15207 0354 
EDRXQ Bi3) 0354 
EDTXC 151 0354 



















H 16 


CZDCLA_DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052)_ 23=MAR-82 16:47 PAGE 204 
CZDCLA.P11 19-MAR=82 18:19 CROSS REFERENCE TABLE -- USER SYMBOLS 


SEQ 202 


EDTXQ 015107 7 354 
EFM11 14707 54 7 
EFM13 §©01 2038 54 5 

FM2 1461 of 4 
EF .CON= 32 G 1674 4505 

-NEW= sia G 1684 4511 
EF .PWR= 000034 G 1694 
EF .RES= 000037 G 1 4500 
EF .STA= poegre G 1654 4495 
EMSGO 00. 4 411 4354 
EMSG1 00 18 41 $ ry 
aes 00221 ai 43598 
EMS ett 2414 24414 
EMSG4 002520 2415 24554 
EMSGS 00241 416 24694 
EMSG6 § 00251 417 24834 
EMSGS 00264 419 $so5" 
ENADD Stat 6254 3902 5176* 
ENDEVT 02 54 3664 3668 38094 
ENDHWL 046310 949 7955 79628 
ENDIT eget 20 4509 4617 46204 
ENDPS 0353502 5781 58114 
ENDQO = 000017 23178 4h 
ENQ = = 000005 68014 163 7216 7798 7817 7829 = 7839 
EOP = 000024 22624 3329 
ERRCNT 006506 262 339 55342 4696 5388* 5711* 5729% 5742* 5785s 5815 6029* 6067*  6135* 
6288* 6406*  6428*  6646* 7466 7484+ 

ERREXT 044506 7474 7493 7518 7527) 0s 7536 7545 7554 7563 7569 8 7574 7578 75824 
ERRPRC 043732 7158 7172 7178 7191 7227) 0S 7284 7325 7373 7381 7395 74544 
ERR1 017464 G 30374 5734 
ERR10 017554 G 7# =5716 
ERR13 017636 G 1014 6034 6072 6140 6293 6411 6433 6651 7471 7489 
ERR14 017670 G 1204 
ERR2 017526 G 544 895747 
ERR4 017604 G 30814 5790 
ERX = 000100 22714 5429 5477 5503 5618 3636 5945 oo 
ETX = 000200 e72h =—5452 5503 5619 5635 589 5911 6305 
EvL_ = 000004 G 1854 
EVMCTS 016502 724 30354 
EVMDCD 016512 726 soee 
EVMDSR 4 $300 725 
EVMOCG 01636 Se 37 
EVMOHD Lb 934 0354 19 
EVMOST 01646 0354 9 
EVMRI 16522 72 0354 
EVMRTS 016516 7 0354 
EVMSRD 01 6369 7 td 
EVT. 007646 7 3* 3698 $7408 746 37238 768 3 9s 775 
EVTBCT 007650 75 94% 3697 741% 745 755* 759 770* 774 
EVTEND 007554 7044 3 3661 4576 
EVTFO 015555 0354 2 
EVTF1 015651 0354 3686 
EVTF 13708 0354 4 
EVTF 157 0354 ig 791 
EVTF3C 015764 354 19 720 
EVTFSD 016001 0354 125 


CZDCLA DUP-11 
CZDCLA.P11 


FSCLEA= 000007 
FSDU_ = 000016 
FSEND = 000041 


GETCL 026764 


GETPRM 025714 
GETRCL 020640 
GLINC 044632 


DATA COMM. 
19-MAR-82 1 


RAR oe 
VLLLLLLLLSVs 


ae 
Sy 


LINK TEST 
8:19 


I 16 


MACY11 30A(1052)_ 23-MAR-82 16:47 PAGE 205 
CROSS REFERENCE TABLE -- USER SYMBOLS 


3771* 


O.co 
Sasa ieeees 


eS & 


Wow 
WMN=MNOoo 


7868 


wie. 


5586 

6091* 

630 
515* 
828* 


we 
aw 
Se 


S 
aS 


$612 
75 





J 16 


SEQ 204 
CZDCLA_DUP-11 BATA cm LINK TEST MACY11 30A(1052)_ 23-MAR-82 16:47 PAGE 206 
CZDCLA.P11 1 ~82 18:19 CROSS REFERENCE TABLE -- USER SYMBOLS 
GLMSG 61667) 7038 § 77 ~3=—s 7635 
GLOBCC 03 367 § 174 09* 
GOOD 534 6# 3042 5727* 
GT $073 477 
GT 02641 47 47894 
GTRA4 0264 47948 
GTRAS 026644 4790. 48304 5582 5824 5844 
GTREX 032040 53854 
GTRX2 2142 54014 2826 5913 5973 
T 31736 4854 490 53624 
GTXRXB 026350 47758 
CNTO= $95 19594 
LM= 000 rs 19594 
GSDISP= 00000 19594 
GSEXCP= 000400 19594 
GSHILI= 000002 19594 
OLI= 000001 19594 
= 000000 1959# 3420 4864 5875 
GSOFFS= 000400 19594 $150 4555 4864 5875 7925 7935 7940 7945 7951 7957 
GSOFSI= 000376 19598 $2 4555 — 4864 5875 7925 7935 7940 7945 7951 7957 
GSPRMA= 000001 19594 7935 7940 
GSPRMD= 000002 19594 sect 4555 4864 5875 7957 
= 19594 792 7945 7951 
GSRADA= 000140 13308 3420 4864 5875 
GSRADD= 000040 19594 4555 7957 
GSRADL= 000120 19594 7925 7945 7951 
000020 19594 7935 7940 
GSXFER= 000004 19594 7949 7955 
GSYES = 000010 19594 4555 7925 7935 7940 7945 7951 7957 
002652 $2 14 7778 
002654 5144 108 38 6211 6267 6557 Ss «6567 = =—s 7121 
002646 5084 6094* 6106* 6119* 6133 6266* 7464 7852* 7853* 
HDMID 002645 5064 7798 7817% 7829% 7839* 7851* 7863 
002651 510# 7810* 7821%  7833% 7843* 7855 
HDMREP 002650 25094 7809* 7822* 7832  7842* 7854* 
HDMSG 002644 $2038 90* 610 6264* 626 6368 
HDMTYP 007646 507# 7799% 7800* 7807* 7818* 7819 7820* 7830* 7831*  7840*  7841* 
HDPLX = 000010 23784 4 14" 
HDXMTP 037142 67714 143 * 6920 6950 = 7241 7423. 7769—Ss 78011 7879 
HEADBC= 000001 67804 136 75120 7517 
HELP = 000000 a 195 1973 2064 2076 =. 2090 a 21220 2 2993 = 33016-S ss 3030s: 30355 
7148 445 4454 445 447 && 465 4671 4685 4705 4721 4726 = 4743 
HELPDC= 000000 ies 7 1998 3099 344 2945 33 5 H et 53 i 388 2994 3009 3035 
= 
3093 2387 584 5786 4594 4631 $856 978 983 6152 6177 6217 6315 
= 000005 3074 44: 2798 =—64896 =: 5089 
HLPEND 003036 5414 50 
HLPF 12271 rey 32 5082 
HLPTAB ¢ 5334 144 
PO at i O33" 4 $2 
HLP1 12276 33 0354 
HLP, 012311 534 0354 
HLP Bises 332 0354 
HLPSA 01251 5 0354 


K 16 
SEQ 205 


CZDCLA DUP~11 DATA COMM. LINK TEST MACYI1_30A(1052)_ 23-MAR-B2 16:47 BAGE 207 
CIBCLACPIY  19-MARSBo 18:19 CROSS REFERENCE TABLE -- USER SYMBOLS 
HLP4 012540 53730354 
HLPGA 012617 538 30354 
HLPS 012675 539 ©. 30354 
WPS _ 012776 340, 30350 
= 
NRDMSG O16717 035# 6374 7632 
002653 5128 
= 010000 G 1958 
IDU = 000040 G 1884 
= 020000 G 1964 
037116 67614 * 6959 6970 7006 7022 7041 7046 7078 7619 7621 7860« 
IMPRST 037136 67698 7759% 7777 
NT = 1 22678 
INIT! 025372 4488 44934 
3707 67324 7186% 7283" 7394" 
INOVR = 002000 2838 6146 63 7619 
INTPRI 011666 29708 4612s 
INVEC 0114 9684 4609* 4636 4833 6921 
IRXCSR 011474 981" 6076+ 6077 6360 6563 6367 6583 S403 6426 IG* 7623 76257641 
IRXDBU 011476 B28 6385" 6386 6392 6400 6402 6425 7644" 7645 7662 7670 
ISR = 000100 G 1898 
IXE = 004000 G 21948 
ISAU_ = 000041 19598 47418 47548 
ISAUTO= 000041 19598 4669% 46754 
ISCLN = 000061 19598 46834 47118 
I$DU_ = 000041 19598 47198 47328 
ISHRD = 000041 79188 79658 
ISINIT= 000041 19598 44848 4650 46598 
I$MOD = 000041 19598 1961# 80034 
ISMSG = 000041 19598 30374 30524 30544 3065 3067 3079 3081# 30934 31014 31134 312¢% 31330 
ISPROT= 000040 1959# 44684 
ISPTAB= 000041 195 
ISPWR = 000041 19598 
ISRPT = 000041 1959# 4448 44608 
ISSEG = 000041 1959# 4768 
ISSETU= 000041 19598 
ISSRV = 000041 19598 3219 32466" 6358" ©6453" © 64B9H 6525H 76148 77398 
I$SUB = 000041 1959# 4768 
ISTST = 000041 19998 4768 4851 4911 7899" 79018 
JSJMP_= 000167 19598 31 4723 4745 
KEYWwD1 003010 25298 3451 3511" 3516" «= 3521" «= 4486 4689 «= 4894 «= 4896 «= 4898 = 4900 4903 = «4907 
4914 4916 4918 5075 5076+ 5089 ©5092" 5095x5099 91095123 ST7ze 5182s 
LAST 037252 $5268 3532s 33egs 3575 68748 
LBMASK 037101 67 706+ 7718s 
LBUFER 037100 737#@ = 7705" «715% =—77178 
LCLKEN= 000100 gee 4528 
LGDVE 020162 14 9028 60666134 6287 40S 42766457465 7483 
= 2178 § 91 dy. ba 
LISCK 034060 3 34a — 
LISCKA 034106 9418 5971 


1 
355  3357*  3366*  5391* 
= 040000 G 


L 16 


SEQ 206 

CZDCLA DUP=11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR=82 16:47 PAGE 208 
CZDCLA.P11 1 “82 18:19 CROSS REFERENCE TABLE == USER SYMBOLS 
LOGCMD 020302 234 574 
LOGCML 020264 19# 571 
LOGCMP 020246 15#@ 5707 
LOGDVI 020200 O64 398 
LOGEOP 020320 274 = 5816 
LOGEX 020610 344 33914 
LOGMSC 0203 3334 6578 7636 
LOGRXC 02015 2984 5590 5959 
LOGRXG 020134 2934 5562 5953 
LOGS! 020354 86 291 3296 3300 33394 
LOG 020602 85 389" 
LOGS3 0204 304 313 3318 «= 33322,'s«3326)2=Ss 3330 0«= «3336S s:33484 
LOGS4 02046. 356 6 33654 

$5 020506 3350 3352 33734 4697 
LOGTXC 020116 32884 5631 59 
LOGTXG 020100 3 5575 «589 
LOGUNT 560 26524 4579% 4581% 4582 4586 
LOOPS 003120 25724 «64133 
LOSTER 037106 7524 ©7323" + «= 7650* 
LOT = 000010 G 1864 
LPO 013723 572 30354 4132 
LPOO } -: 013724 30354 29 
LP1 013733 573 30354 
LP2 01374 2574 30354 
LP3 013752 2575 = 30354 
LPG 013765 2576 30354 
L 37107 67534 7324% 7651% 
LSACP 2110 G 20534 
L 002036 G 20114 
L 026334 G 03 47618 ‘ 
L 002070 20374 
L$AUTO 026236 G 054 46694 

002106 20514 

LSCLEA 026240 G 2052 46834 
L$CO. 002032 G 20074 
SDEPO 002011 G 19894 
LSDESC 011534 G 2044 30214 
LSDESP 002076 G 20434 
LSDEVP 002060 G 20298 
LSDISP 002124 G 2014 20734 
L$DLY 002116 G 20594 
L$DTP 002040 G 20134 
LSDTYP 902034 G 2009" 
L 026 26 G 040 47194 
L$DUT 002072 G 20394 
L$DVTY 011524 G 2030 30114 
LSEF 002052 G 20244 
LSENVI 002044 G 0174 
LSETP 902102 G 0474 
LSEXP1 002046 G 0194 
SEXP 902064 G 0334 
LSEXPS 002066 G 0354 
LSHARD 046230 G 1996 7918 7919" 

IME 002120 G 20614 
L$HPCP 002016 G 19954 
LS$HPTP 002022 G 19998 





CZDCLA_DUP-11 
CZDCLA.P11 


rmuirnnrn 
Ow 


e 2 
S 5 
essssesssssessss 
BOUS 
FESSISARS 
ADQDAQAQADAAQAAAAIADAAAIAIAAAaaa 


MV VINININNN 
=F _ 


Fe 

sd 

“4 

ond 

2 
gseasse 

NNN 
PUN EL ES, 


L10004 017634 
666 


r 
ooooooo 
22S 


MESLON= 
oe a 01 11238 
mTYP. 06872 


MOBITE 007574 


MOBITS 7560 
MOCHK = 10 
MODE 

MODES 3102 


eta Hg 
2086 
5 44848 
i 80014 
i 
ty 
54 


1 
205 44684 
? 
0314 








MACY11 30A(1052) 23-MAR-82 16:47 PAGE 209 
CROSS REFERENCE TABLE -- USER SYMBOLS 


20874 


78998 


328 
A: 


6361 


3613 3616 «= 3627 0S 6877" 
637 * 7634* 

g 73* £8 1* : 
164 9 S272e 52918 i7* 


5339 


53418 


5343* 


SEQ 207 


5345* 


3 


CZDCLA_DUP=11 DATA COMM. LINK TEST MACY11_30A(1052) 23-MAR-82 16:47 PAGE 210 
CZDCLA.P11 1 -82 18: CROSS REFERENCE TABLE -- USER SYMBOLS 


SEQ 208 





007536 ; Hg 1700 G1728 637 79s 5 7628 7687" 
MODTYP 0065 2819* 483 16 67s Qe 5275+ 5278 52816 52844 $287" $300 
i $600 56165 128 89728 6051. 6954. 7950. 7425. «7762+~=—« 7881 
MOMSGS 007574 Zin 38 
MOP = 3 eeu * 
MOSC = 000056 ge 2589 
HOO «OO 564. 30350 
moo OOT3eS 302 Sg8ee 
mos OO 208 aby 
mo (013672 568 3035a 
MOS «01370 569 34 
mos «013714 $70 34 
MPPTP 037132 £6148 $6767" «6928 «6939 
MSC = 000016 3584 5 
CMS 014764 O35" 5789 
MSGCC_ 011503 29848 6108" 6260" 6267" 6503 E510" GSI7" G567# 78648 
GLIM= 00001 3048 3596. «3595. 359684069: 49364978 
MSGPTR 0115 34 Gl07* 259" G65" 6906 6508" 6516+ 6566" 7863s 
MSGTRN 01437 O35# 4925. 4940 4966498 
MSGTRU 014424 035" 3941 
MSGTYP 006516 2650# 3985 4680S © GBISe S134" S213" S287" S239 S2d1e S2k3e S2K5e S247" $2508 
MSGO 002214 3411. 2624 «24348 
mSGOC 002150 54114 
MSGI 002215 5412, 2425 «26364 
MSGIC 002152 26128 
MSG2 009216 413 26426 «26384 
msec 002) 4138 
MS 002217 4162427 6G0# 
MSG3C 002156 4148 
SG4 002220 5415 2628 «26428 
msesc 0021 24158 
MSGS 002320 416 242926 56e 
msqsc 0021 sige 4804 48165135. S248 
MSG6 00241 41 43024708 
mSG6¢ 002164 4i7e— §251 
MSG8 64 5419 243224968 
0021 54198 
AYDATAS 091000 gros «F839 O5Dh733B°~=«73SS~=«7659~=C«768G 
$5 ee tr fie Bil 
= 
a a a 
ee 
= 
NOC 14236 503 , OR 
Ht 14 oe 
NOD1 Aes 
NOD10. 007776 80 
NOD100 910624 8758 
NOD101 0106 8764 
NoD102 910644 8774 
NOD103 010650 798 


SEQ 209 


MACY11 30A(1052) 23-MAR-82 16:47 PAGE 211 


CROSS REFERENCE TABLE -=- USER SYMBOLS 


19=MAR 


CZDCLA_DUP-11 DATA COMM 


CZDCLA.P11 





STAAIASSAAASRASASCAM SASS GROMER ASN OAM Sosy SIR SARS TMS 
aappnssnusnuyessanaseapoponseeses ana) 





uo PX 4 OzFOrOWOWMOWMONMUONOONW ON wWoMmMOMOOwTOwOoOoOvwoy oOo wo 
BOSE SRR ERR SESS SSS Se Na ne DR RRA ANOS 
Pad, maak aaah sah mal aaah math aaah muah muih auth ough suk muah smash suk sh sud, suuth, neath, semeh, sume, seme, meudh, menth, south, seme, sth, th, seth, seh, ssh, meth, mend, meee, seh seh, meh, sls sel, sel sl, sel, sl sl sel el sel el el ell 


SOOOSSCOOOOOSOSCOSOSSOSSSOSSSOSOOSSOOSOSOEEGSEOSOEGESSSSESEESEOEEEEESSSSO 


teal eed eek eel ol eel eel el el gel eel el gel pel el eel, eh el eel pe ph eh pe pe pe ee ge ee pe me pel Ce el gee eh eh eee ee ee oe oe ee eh ce ee ee eee ce cel 


—E 1 


SEQ 210 

CZDCLA_DUP-11 DATA conn LINK TEST MACY11 30A(1052) 23=MAR-82 16:47 PAGE 212 
CZDCLA.P11 19-MAR=82 18:19 CROSS REFERENCE TABLE <= USER SYMBOLS 
NOD1 011432 74 
MobIS? 611236 84 
NOD1 01 0028 8104 
NOD170 01144 9498 
NOD171 4 1446 544 
NOD1 21032 604 
NOD1 021 078 614 
NOD174 02104 74 
NOD175 021044 6 
NOD176 021060 644 
NOD177 0. 106¢ 654 
NOD2 007724 7978 
NOD20 010062 $e) 4 
NOD 021076 664 
NOD201 021100 674 
NOD202 021112 684 
NOD203 021114 694 
NOD204 021134 704 
NOD205 021140 714 
wanes 021144 728 
NOD207 021160 734 
NOD21 010074 $3) on 
NOD210 021162 748 
NOD211 021176 34754 
NOD. I 021200 34764 
NOD213 021216 hhh 
NOD214 021222 784 
NOD215 021226 798 
NOD216 021250 804 
NOD217 021232 814 
NOD22 010100 8134 
NOD2S 010112 8144 
NOD24 at 0116 8154 
NOD25 10120 28194 
NOD26 010124 28204 
NOD27 010140 28214 
NODS 007726 144 94 
NODSO 010144 8228 
NOD31 010162 $85 
w0o ss 010166 0244 
NOD3$ 010204 8254 
NOD34 010210 8264 
NOD35 3H 0ce8 8278 
NOD36 10232 8284 
NOD37 01 54 8 
NOD4 007742 7 
NOD4O 801 oexs 8304 
NOD41 010 Hay 
NOD4 10304 8 vr 
NOD4 10310 3 
NOD44 10368 
MDGs, 010344 836" 
NOD4 010350 8404 
NODS sha 8004 
NOD50 10354 8414 





F 1 


CZDCLA_DUP=11 DATA COMM. LINK TEST MACY11 30A(1052)_23-MAR-82_ 16:47 PAGE 213 
CZDCLA.P11 19-MAR=82 18:19 CROSS REFERENCE TABLE -- USER SYMBOLS 


SEQ 211 


FF x 
% 


8 ( 
NODS1 910576 { 
NOD 10400 t 
nop5 10424 8444 { 
NOD54 0104 B69n t 
NoD5S 0104 S0# t 
NOD 91063 8514 t 
NoD5 10454 8524 t 
NOD6 007760 8014 t 
NOD60 010474 8534 t 
NOD61 010500 8564 { 
NOD6e 010504 g8o78 t 
010510 8584 t 
NOD64 010514 8594 { 
nNOD65 010520 8604 { 
NOD66 010526 38618 { 
NOD67 0105 862. { 
NOD7 90776¢ 380 r’ { 
NOD70 0105 ( 
NOD71 010540 g ° | 
NOD72 010544 8674 { 
NOD 010550 { 
NoD74 010562 28694 < | 
NOD75 010566 28708 ( 
NOD76 010602 28714 ( 
NOD 010606 28744 ( 
NONE = 000000 22198 ( 
NOTNUF= 000050 o3uen 2806 2809 2810 2820 2859 2861 2867 ©2922 | 
NULEVT 015515 0354 3649 
NULL = 3024 | 
NUM = 000014 3144 2930 
N10$ 007720 27958 | 
N100$ 010350 2809 2812 28394 
N102$ 010354 28404 | 
N104$ 010400 2841 28424 
N110$ 010426 g818 28484 
N111$ 0104 8494 
N112$ 010454 850 28514 
N114$ 010544 
N115$ 010540 82 2825 2827 2829 2831 2834 2836 28654 2871 2875 2877 2881 2886 
3938 2940 2942 2944 2949 
N116$ 010562 8684 
N117$ 01 2869 2870 28734 
N118$ 0106 2874 el 
N119$ 010650 2876 S76e 
N1208 010754 3851 285 gaol 
N121$ 011220 896 2898 900 2902 2904 2906 2908 2914  2920# 2931 
Niges 011250 . 2 29248 
Ni2 011224 21 
N125$ on] 859 861 865 2867 «2910s 2922s: 2953 
N126$ 011271 24 26 9284 
N130$ 010676 88 BB1s 
N131$ 010734 38 874 
132$ o107Ne 79 8844 
N140$ 011 889 9334 
N141$ 011310 9360 
N142$ 011336 29384 





G 1 





SEQ 212 
CZDCLA DUP-11 DATA COMM. LINK TEST MACY11, 30A(1052) 23-MAR-82_ 16:47 PAGE 214 
CZDCLA.P11 —- 19-MAR-82 18:19 CROSS REFERENCE TABLE -- USER SYMBOLS c 
N143$ 011356 " 
NI4G$ 0114 “ 
N150$ 0114 a 
N20$ 010056 ¥ 
NSO (010196 8144 2819 2820 2821 283 835 2840 28463 2849 2852 2858 : 
ts a) pS 9 SY 3623 (308 " 
NGOS 010036 
NG 007726 
NG 007744 
N44S 0077, 
NG5S OT 
010016 
N50$ 010500 
N51$ 010504 
N52$ 010510 
N60S 010760 
Se Hiss 
mess 011009 
NOGS 011062 
N65$ 011102 
NOS 011128 
N67$ 01114 
N68S 011166 
N70$ 011172 
N71$ 011202 
N72$ 011206 
N73$ 011216 
010120 
N81$ 010124 
N82$ 010166 
N83$ 010210 
N84S 010232 
NBS$ 010254 
NB6S 010304 
N87$_ 010332 
OFSET 006532 5720* 5737s 
OPBFPT 002514 48" 5 
OPBUF 902520 2 5223 5867 5874 5882 5888 5889 5907 5909 5941 5942 5968 
OPCNT 002166 4184 5221" 5886* 5890 5891 
OPEND 002642 4 5869 
OPRIM 01406 354 5876 
OPRMSG= 000015 3158 2912 
OPVAR 00650. 6214 4694 5386* 5813 6141" 7472s 
OTINT = 2684 
OUTMAS 03707 268 7517* 7526* 
OQUTVEC 011464 94 4610" 4611" 4661 
< 1 19308 9973" 2037 
= 
OSsewr= 000001 19598 19038 3034 
1959# 199 
osDU = 1 1959 19724 2039 
OSERRT= 19998 2 
OSGNSW= 19598 1 





4 1 


CZDCLA _DUP-11 DATA COMM. LINK TEST MACY11 30A(1052)_ 23-MAR-82_ 16:47 PAGE 215 
CZDCLA.P11 19=MAR-82 iasi9 CROSS REFERENCE TABLE -~ USER SYMBOLS 
IN= 1 19594 19728 3 
OSsETU= 1959" 1991, 9999 
PAD = B01 000 2814 105 54 g 6519 6 g 779 
PARAM aad 31 51 561 aeee* 4837* $88) 51 
449s 563 5577 33 3351 5 3 564 
goes $76! 6914 944 122 223 723 7237 
408* 7456 7617 7 780 
PARCSR 011452 # 4600 ogi 6079* 
PAS = 000002 4 5270 5300 616 5633 
PASC = 000042 364 2948 
PASMOD= B00078 reir 824 
PCADD 006 6 
Ck 014014 354 4151 
PCLKCT= 001 22304 4539 
PCLKEN= 000111 22 4541 
PM 014655 30354 
C 014024 30354 4155 
PLCK. 03230 $60? 54734 
C 03230 4748 
PLCKS 032316 54764 
014033 354 4165 
PNCK 014012 SS# 4154 
C 014022 354 4158 
PNMS 014031 0354 ret | 
014041 328 416 
PNST 014001 54 4150 
PNT = 001 G 21924 
01404 30354 4160 
ae tabs 44d 7118* 7165*  76C° 7676* 7691 7696*  7697* 
= 
PRIBB 021670 $3948 6860 6861 6862 6863 6864 6865 
PRIBS 021726 7a 6868 6867 6868 6869 6870 6871 
PRINEX 0453 7643 7 7679 7726 77358 
PRINI 044644 7633 76364 
PRIN2 044572 76274 
PRIN21 044656 7618 7620 7622 7624 76414 
PRING 044740 7646 7659# 
PRI 045046 7671 76814 
us 045022 7 76764 
PRIN? 045304 76 § 7721 77298 
PRINS 045320 £93 7673 7709s 77324 
PRIW 021642 834 6857 6858 6859 6872 
PRIOO = aioe G 1814 4647 
PRIO1 = 000040 G 1804 
ate = 000100 G 1794 
PRIOS = 000140 G 17 
PRIO4 = 000200 G 1774 
PRIOS = 000240 G 176@ 4632 4639 4831 6919 
pais = 000300 G 1754 
PRIO7 = 000340 G 018 1744 4687 
T = goons 4 $00 4898 5095 
o7 114 o7ege 
PROF DX 1366 1903 70414 
PROINT 4 34 6938 44 
1 22404 6914 6944 7223 7235 7237s 7265 


5239* 


7365 


7729* 


7291 


5 
P] 
7291 


7317 


299% 
866* 


3897 
298% 


7401 


58,0 


7317* 


7408 


SEQ 213 


5330* 
et 
401 


7456 





I 1 
CZDCLA_DUP-11 DATA com gt ik TEST MACY11 30A(1052)_ 23-MAR~82 ¥ 47 — 216 





CZDCLA.P11 19=MAR-82 1 CROSS REFERENCE TABLE == USER S 
PROTEX 041674 ae 6998 7024 7037 70724 
PROTO = 000041 380 
PROTOB= 000040 61 4161 3363 5563 5577 5897 5949 6084 
PROTGC 0407 902*  5956* 69094 m 
PRRXI 044510 G ee 6144 Ld 
PRSTAT 037052 5 937* goes 961% 6984* 7013* 7031*  7064* 7/097 ot 7119* 7168 a 
717 183 185* $ehs <4 re? oecee 7228* 7270% 7278* 7315*  7322* * 
7338* 7355 7356 7362* 736 7377 7 $8 7390* 7418 7497 i. 7659 
7672e 7681% 7684% 7695 7708* 7720* 7730* #7759 7777 =67782 7786 7788 * 
781i% 7823*  7834%  7845* mt 
PRTEMP 037144 67724 
037130 7664 6935* 946* 7421 
PSCNT ‘pees: 6224 4695 387* S5811i* 5814 
01400. 0354 4147 
PTPMLP 046446 52 79664 
PTREND 006434 25974 
PTRTAB 006150 5944 4072 4077 4797 4934 5120 5127 5378 
PTR13 44 5954 4801 4976 5104 5114 5379 
PTR23 0 5964 5380 
PSACT 003136 5824 3428% 4249 4872* 
A 003132 25804 3426* 4 4870* 
NT 003140 25834 8 4346% 4353 4415* 4422% 4427 
PSEXIT 024364 Sey), at od 42 4271 
003147 é sone 33168 3431 3555* 6264% 4269% 4277 4328* 4371* 4858* 4875 5205* 5258* 
PSNNUF 003146 43060 34138 ese), 3497* 3538*  4859* 4884 5070* 5100" 5108* 5122* 5177*  5264* 
PSNUM 003142 2 3 39 541 3543 3545 3546 4341% 63442 6346 4347* 4349% 4353* 4355* 
4361* 170 176 519 5207 2 
003144 5854 43901" 4304* 4311* 4318 4351 4359 
PSTREE 0031 5814 3427* 4205 4871* 
PSTRV 024246 30 aSye" 4874 
PSTRS 024 6 rit 74 4215 4235 4240 
acoPy = 0000 134 +4 5 19 
x = 2694 4 47 5503 5553 5586 5618 5625 5636 5945 6197 6199 6302 
6445 6554 6583 970 702 (038 gig 7729 
QTX = 000010 22708 5452 5503 567 561 2067 563 5644 5893 5911 6105 6111 6252 
t 54 501 565 959 7 7041 
QUALFG 003012 314 *  6873« 189* 192* 195 294% 529 5310* 5328 5331* 
QUAL 003014 25324 4957% * 3186s $607 10* 
a 67124 ie: x 7354% 09 7822 7854 
Bee183 74 7535* 7553* 
RBUFER S106 674 75 Se 7534 7550* 7552* 
— 0370 22 by 7187* 7279% 7652% 7707* =7719% 7819 
RECMOD= 090081 278 $36 
REMTMO zie 164 $ 1* 7273* 
Pp s 
a 520 


782a 
a oe ae 
RESFLG 006566 ray 4493« $315. 4789 





a 
SEQ 215 


CZDCLA_DUP-11 DATA om LINK TEST MACY11 30A(1052)_ 23-MAR-82_ 16:47 — 217 ( 
CZDCLA.P11 19-MAR-82 is: 19 CROSS REFERENCE TABLE -- USER SYMBOLS C2 
RESTRT 025646 $203, 4529 = 454 4561 45704 
RHDADR 002664 5 7197 Ss 768 

00 ; £ 6099 6101 6123 6125 3866132 6441 6442 7463 7687 = 7698* 7701 7724 

D 00637 3184 7148 7154 = 716 7216 

RHDMSG 6 5174 g 1 $328 7117* 

00266 S22n $8 35 ; 
RHDREP 002 Sel# = 7239) 724 7342 741i 
RHDTYP a S19# 7221 7233 7261 7289) 0s 7313, 7511* 897512 = 7521 75300 «7539 7548 = 7557 
RHLPEN 003052 5494 3509 
RHLPTB C0808 5434 $25, 
RHLPO 01307 0354 96 
RHLP1 AEE § 43 30354 
RHLP2 013155 44 30354 
RHLPS 013210 2545 354 
RHLP4 013241 546 35a 
RHLPS 01 3503 547 0354 
RHLP6 = 013536 548 0354 
RI = 04 23704 271 
RINTEN= 000100 23814 582 6212 6447 6560 7124 7126 = 7733 

LOP= 7 23414 $207 

RMMASK 037105 67484 7544% 7562+ 
RMSGCC 011512 29884 6204* 6211% 6396* 6417* 6441% 6557* 7121 7666* 7677* 7724* 
RMSGPT 011510 29874 6203* 6210 g 6393* 6418* 6440* 6556* 7120* 7661 7663* 7678* 7723 
RMSTER 037104 67474 = =—7541* =7543% 559% 7561 
RNODE 011522 soree 4613* 5394 6080 6200 6256 

046422 946 
RNOTNF= 000006 23574 69 3471 3476 
RPASS 006600 26734 3311 4821* 4840 4848 5101* 5165 5334* 5818 5820* 
RPERR = 000004 23554 3472 
RPEXT = 00000 23534 51 3465 
RPFUL = 00000 3564 74 

= 000001 3528 61 63 

RPLOG = 000003 23544 3467 521 
RPSWO = 000007 S200" 78 

T 022126 5 7052 s_«-3725 
RPTAA 022176 36714 

T. $ 215 37394 
RPTDCK 02264 7 7694 

T 022566 767 7544 
RPTDER 022352 7 7074 
RPTOLE 0. cote 7 7 

TOSP 007654 75 91 
RPTDVI 022 7 7278 

TEOP 02251 7 74 
RPTIV. 01340 0 55 

TASB 023016 704 79 3805 
cc alg 
ite $8 er 
i esis ye ue 
RPT1 0221 
RTS = 94 6631 


1 
RUN _ = 000004 804 4900 
RXACT = 004000 38 





CZDCLA_DUP=11 DATA COMM. LINK TEST 


CZDCLA.P11 
RXBUF 004150 


RxC_ = st pes, 
RXCSR 90114 


= 000100 


0 
4, 5$ 02123 


0$ 

185 

13$ 021100 
R14$ («002114 
R20$ 021140 
R21$ = 021162 
R22$ 021200 
R350$ 021230 
SACK = 000004 
Sem 16636 
SCML. 01662 
SDATA = 000020 
4] pie? r4 


19=MAR=82 


18:19 


i 


476 
270 


6984 


7008 
6273 


3478 
7362 


7064 


7059 
6569 


K 1 
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34798 
7418 


7228 


7192 
7870 


Hee 


7126 


7118 
7070* 


poses 


7782 


7790 


7689+ 
7873 


076 
481 


7733 


7811 


7771 


6170 
7616 


7691 
7148 


7781* 


#9580 


7696 


7808+ 





6285 


7336 
74 


314 
7180 


7374 


SEQ 216 
6360 6447* 
7420* 7713 
7194 7210 
7383 7397 


CZDCLA_DUP-11 
CZDCLA.P11 


SEOP 
TET 


016647 


Sss= 
3 


WWW 


UMW Ww 
Anon rom 
nor = 


SSesesus 


01 
01 
01 
01 
01 
01 
01 
01 


So 
Gases ete 
aregeses 

== 

MEM—wW 


1 


ATA COMM 


82 1 


LINK TEST 


219 


Sa 
O# 


6848 


gece 
OOoOono Oo 


SoUreo 
SN= 
22 


Ona mee 
SP eoUnfeuuoor 
AW—UNONO Oo 


— ae 


tL 1 
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7830 


35604 
5316 


7124 


5256 


5109 


7322 


7126 


5123 


7377 


7390 


7568 


7649 


7708 


7720 


7823 


SEQ 217 








SVCINS= 009001 





a 1 


MACY11_ 30A(1052)_ 23-MAR-82 16:47 PAGE 220 


CROSS REFERENCE TABLE -- USER SYMBOLS 


CoO. Co & — 00 
UN 


CcoNIWIINS— 


SOS 
Roes—oWha—wS 


Oo 


Ab pepet tp ee a 
wa 


MMICWRIWE 2 DOADOAG1O & OOL WLM O0-UIn— 


“NS COM oO 


part 99 trie Pd ee | 
OA COA LUWOo LW 
Som NONVOONMO—O W—NNOW 


NEOUS SSS 


VUITUCOVIWW 


sooo 0000 NVA 
rr a ay eh A 
ENNIS WN 


—-OOoNnIWN—o 


RaSS EVE BEBR 


ons 

SENS. 
=~ 
woo 


CAUSES W—Oo 
MWOAWN—f000—" DO —MA— 


ARAVA AIMNAE 
—Oo NWO 


2aaSF 
SNSOSVSEGNNG 


wworo 


M—AWwnrnr— 
Peeaanns 


SH AVOALA 


PRLS RWWA AAAI 
WI = 009 08 SIN NNQAQAQAQUINIE &W—GOSO000 
FOANL OL ONS HOUMIGOWM 


Cio 


NOW NIA NUN = = IW NE CONIWON SE NUNES WO 


PRRARRDE 
9 NIAC 
WEN 


yt gee ee He 
NW 


rs 
SS 2a o 


RVOr 


wr 
co 


AAAS 


AVN 


OOo 


ooooo =—Ooo 
Bele tSoseeNle 


_ 
Nm 


eee 
Fou 
Pert poy wpe ef 
ERs 


Ana 


SNS 


StS SS SSS SS 
=—Oonnw— 


woof oO 





MiseaKnee 
* OWANINW 


33x 
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SEQ 218 





N 1 


SEQ 219 
LINK TEST MACY11_ 30A(1052)_ 23=MAR=82_ 16:47 a 221 


CZDCLA_DUP-11 DATA COMM 


CZDCLA.P11 19=MAR=82 18:19 CROSS REFERENCE TABLE -- USER SYMBOLS 
SVCSUB= 000001 19594 
SVCTAG= 000001 19594 3050 7065 3077 = 3091 3111 3131 3244 she3 4458 4560 4657 
4673 4730 84752 = 4869» 5880 = 6451 6523 (737 899 7964 
SVCTST= 1 19594 
SYN = ee 6 39 
SYNCC 11504 9854 a6es 6491 6494 6568 7865+ 
SYNCW 011506 29864 97* $597 
SSLSYM= 010000 19594 0514 30644 30784 30924 31124 iif 32454 3418 3425 z560 44594 
4553 45614 46584 46744 47104 47314 475 4862 4869 48708 587 5880 
58814 65244 77384 79004 & 
$1 025434 4508 
$2 025510 4526 
$3 025560 &§ 
$4 025626 454 
T 037062 67094 7239 = 7245 7246 8=— 7248* «= 7342 7344 7345 7346 4 38=— 7347* = 7411 7413 
7414 7416* = =7855 
TABEX 014315 30354 4981 
TAL = 22164 597 
TALCK 033614 2682 590 5910 
TALMOD= 35 23314 
TCURAD 00646 26134 4808 4950 4955*  5130* 
TEMP 006534 26384 290* ; 95* 3299 303* 3308* 3317* 3321* 3325* 3329% 3335 3349 
3375 377% 78 885* 3888 3947" 3948 3503 987*  3988* 4126* 
2130 ai38e 2178 sees rari 5153 5214" = 5215" = 5219 222 5605* * 
TEMP1 006536 SF fd 289 hye 3302* 3307* 3316* 3320* 3324* 3328* 3334 3368  3607* 
128 4133* 4137 = 4151% = 4154" 1 580*  6581* 
TEMP2 006540 26404 3310* 3381 08* 50128 3625 990*  3992* 3256 4134* 4155* 
4158+ 4695*  5557*  5570* {He 5608* 5609 629% 5697* 5814* 5889 
2253" tebe $0 3. 76s . 6131*  6284* 4e 6377* 6404* 24% 2* 6669 
TEMPS 006542 add 104 Hy 4 3511* 338 3609* 3618 21 $163 4132* 4138  4696* 
59 589* 5595 6 60 5608 2873 2359" 57 5815* 5890* 5905 
orese gots 60 $s 6064* 6132* 6285+ 9s 71 6402* 6425"  6643*  7460* 
TEMPS 006544 on 103 1 3312* 3346* 33 4160* 4163* 4172 4694% 5706*  5719* 
Bae 74 38] * 60 $ $: 153 6286* 6370* 6371 6403* 6426 * 
7461* 482s rocte 6 
34 4168* 41 


7478 
; Sf eal 44 ars 74526 6275* 6279 6575 6932* 6949% 7156 
57* 605 


7 
si 


3935 = 33946* 993948 3950e 47942 4920* 4921 4954 4961" 4962 4998 








8 2 
SEQ 220 
CZDCLA | aie ATA C LINK TEST MACY11 30A(1052)_ 23-MAR-82_ 16:47 PAGE 222 
CZDCLA.P1 1S-RARSBS 18519 CROSS REFERENCE TABLE -- USER SYMBOLS 
Lad 37065 $6! * $6185 67134 7096 7101* 7197 7682 7778 
TRVACT & 62474 4263 4268 4273 4276 4296 4362 4385 4406 4430 
TRVALN 4& & 94 
TRVALP 4 4226 43754 
er Bie le 
TRVBRC 4 42544 4274 4279 4298 4372 4387 4408 4434 
TRVDEC 28? 4227 43014 
TRVERR “ 4218 42634 
TRVEXI 444 4219 4 74 
TRVNMA 606 & * 43054 
TRVNOB 416 $s 4 Be 4297-4363 4386 4407 
TRVNUM 4600 4 $3 43044 
TRVOCT 024600 4 43034 
TRVSPA 14 4 42824 
TRVSTR 46 “4 44128 
TSOM = 00 iL 
TL = saa Of 4853 6041 
TTLL = aT ; 7a 6040 3 
TTOTCC Dogue Sie 4096 4795* 4920 4931 4954* 5126 
037146 677 6934* 7114 7127" 7732* 
TXACT = 001000 23854 6670 
0031 23 sei% 33 4805 5129 
= 
TXCSR 011456 # 64604* 4605" 6013* 6016* 6027 6040  6043*  6048* 6065  6110*  6273* 6286 
99» 6569* 6644 6669 7482 7870" 7873+ 
TXDBUF 011460 5# 4606* 4607* 6493" 6498 * 
TXDONE= 000200 3 
TXINEX 0 $$ 649 6502, 6511 6518 65214 
TXIN] 036254 on 64 
ttle oee 14 649 65034 
TXI 364 6514 65194 
TXING 036356 6504 65124 
TXM 00002 2754 = =§=6091 6634 6258 6513 6515 7797 reig recs 7838 7850 
TXMTOT 0064 6114 4086 4811* 4933" 4935 4956" 5121 5125* 5 5451 5474 5499 
Hoe tse i, te 
TXPRC § 037122 4) 2 4 $* 4 6987 7016 7019% 7043" 7056 7067 7249 7300* 7339 7348* 
TXPREX 04 4 ree3 78934 
04 33 96 . 9o63* roe oe * ? 7179-7193 7229) 7274 = 7285 7294s 73316 
TXPTR 006442 6 ge * 40 $980 4089* 4091 4798 4809 4934 4948 4949 4953"  5127% 
33 &S 78* 5450 54 5500 
= 
$$ 6 Ye § 654 6910 6993 £766 7780* 7887 
TXTHER 0370 67 44a 75 503* 75 - 
= 19 198 19814 19824 19834 19844 394 4 36" 1 9M 75 3a 
089 10 109 1224 1g? yd 64 6 {9 34a 
54m 4 Aid 5 5304 4 644 8 844 835 5954 
3 Ld 6 a vA tM oe § a 37 7114 ate 1 & 
at, ae oe, ee, Se ee, le, 
13330 4327 ieee 3 0 iseee ise” 13830 4787 = 48254 = 48 48784" 4 48874 


CZDCLA_DUP-11 DATA 
CZDCLA.P11 19-MAR-82 1 


TSCODE= O0503¢ 
TSERRN= 00000 
TSEXCP= 000000 
TSFLAG= 000040 
TSGMAN= 000000 
TSHILI= 000377 


TSLAST= 000001 
TSLOLI= 000001 


TSLSYM= 010000 


TSLTNO= 000001 
TSNEST= 177777 


TSNSO = 000000 
TSNS1 = 000004 
Lb ns = 000010 


TSPTNU= aaa 
TSSAVL= 17777 
TSSEGL= 177777 


TSSUBN= 
TSTAGL= 1777 
TSTAGN= 010024 


TSTEMP= 000000 


TSTEST= 000001 
TSTSTM= 177777 


Com ation TEST 


—_ 


sagussss 
SSLSSS-9 


=—o 
=e 


aS 


000000 Y 
seseeseeee 


xO 
4 


wn 
& 


BSNES MUMIA 


at YR AN Roto 
Soe3 
WNMUWOOW 
See 


$362 


nid 
S783 
45554 
46504 
zee? 

45554 
4555a 


3051 
6452 


3 


N 


esr cups 


C 2 
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49654 
$307 

79354 
60324 


4869 


4725 
45614 
4868 


497 
53524 


79404 
60704 


58754 
47454 
4 


49814 
5356 


79454 
61384 


5880 


4747 
$868 
5879 


See eens 
DOWUIW— 


3 


44844 


Bi 
77378 


0 2 





CZDCLA_DUP-11 lt COMM. LINK TEST MACY11_ 30A(1052)_ 23-MAR=82_ 16:47 PAGE 224 
CZDCLA.P11 1 82 18:19 CROSS REFERENCE TABLE == USER SYMBOLS 
TSSINI= 010012 44 465 4657 
TSSMSG= 010006 s0ste $030 30544 3063 30674 3077 30814 3091 
TSSPRO= 010011 44684 
TSSRPT= 01001 44484 4458 
TSSSRV= 01002 15138 3244 63584 $63) 64894 6523 76144 7737 
TSSTES= 01001 & 4851 4911 89 
T1 026 S| 074 47684 
= 200 G 1904 
T 032610 5914 
UPTA1 032676 597 
TAS 032674 260) 
TAS 032634 55 
UPTEX 0 C8 560 
VECTOR 04636 7941 
037063 67104 7345* 7414* 
x$ = 000220 19624 7964 7974 «27988 80 8014 
8074 8094 28104 114 81 8144 
He 8254 28264 ere 8294 283 
8 94 8428 34 ob 8504 
8584 604 28614 28624 ty 8674 
28754 8774 28798 28804 8824 28834 
28954 8974 28984 28994 9014 29024 
29084 9104 4 9134 9154 291 
29248 264 30" 9344 29378 
34 9474 29484 498 $e a 
he 694 704 714 oat 
= 000000 19594 
SFALS= 000040 19594 
XSOFFS= 000400 19594 7955 
STRUE= 000020 19594 
SPATCH 046532 79938 
° = 046616 19594 2468464 24904 24984 25138 5248 T+ ed ates 
25964 25998 27034 7044 27984 28024 28 81 
28434 28504 Soe 628684 862870 = eB 74K = 2B 76M 
29094 29234 CoH 8629418 30144 354 136 $ 
4703 4724 4746 4852 4912 094 43 


31014 


‘GoGo Co CO 
eich 
zRVraez 


ce 


xv 


€ 


IO 
Wns 
RS 


3111 


31204 





3131 








SEQ 222 


3135 


3a 
1 


CZDCLA_DUP=11 DATA CO at io TEST 


CZDCLA.P11 19-MAR=82 18:1 

BCOMPL 1# 8 1959% 4497 

BERROR 14 19594 

BGNAU 1# 19598 4740 

BGNAUT 14 19598 4668 

BGNCLN 1# 19598 4 

BGNDU 1 19598 471 

BGNHRD 14 1959% 791 

BGNHW 1# 19594 2085 

BGNINI 1# 19598 4483 

BGNMOD 1# 19594 1960 

BGNASG 1# 19594 7038 

BGNPRO 1#@ 1959% 446 

BGNPTA 1# 19594 

BGNRPT 1#@ 1959% 4447 

BGNSEG 14 19594 

BGNSET 14 19594 

BGNSF T 1# 19594 

BGNSRV 1# 19594 3218 

BGNSUB 1# 19594 

BGNSW 14 19598 

BGNTST 1#@ 1959% 4767 

BNCOMP 1#@ 19598 4507 

BNERRO 1# 19598 

BREAK 14 19594 19 

BRESET 1# 19598 4698 

CKLOOP 14 19598 

CLI 19634 2794 795 
2808 2809 810 
2826 827 828 
2848 849 850 
2867 Sees 869 
3906 3907 5908 
$963 Se 2928 
Si) Sane S478 

CLOCK 1#@ 19598 4521 

LOSE 14 19598 
CLRVEC 14 19598 
C N 14 19594 
LAY 1# 19594 

DESCRI 14 19598 3099 

DEVTYP 14 19594 10 

DISPAT 1# 8 1959% 2071 

DISPLA 14 19598 

DOCLN 14 1959% 4490 

DODU 14 19598 

DORPT 14 19598 

ENDAU 14 19594 4751 

E T 14 19594 4672 

ENDCLN 14 19594 4708 

ENDCOM 14 19594 

ENDDU 14 19594 4729 

ENDHRD 14 819598 

ENDHW 14 819598 211 

ENDINI 14 19598 4656 


450? 


3053 


E 2 
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4513 


3066 


4846 


3080 


7613 


4546 


MIMIMIPONIPY oa 
Fszssaaey § 
OTN RA— We N 


NOW 


3100 


3119 


FEESVeo 
NAW ONG 
CONS OO NIWOO 





nm 


SINCERE 


SEQ 223 


CZDCLA_DUP-11 DATA COMM. LINK TEST 
CZDCLA.P11 1 82 18:19 
ENDMOD 1# 19598 00 
ENDMSG 1# 19594 3049 3062 
ENDPRO 1#@ 19598 4474 
ENDPTA 1# 19598 
ENDRPT 14 19598 4457 
ENDSEG 1# 19594 
ENDSET 1# 19598 
ENDSFT 1# 19598 
ENDSRV 1# 19598 3243 6450 
ENDSUB 14 19598 
ENDSW 1# 19594 
ENDTST 1# 19598 7898 
EQUALS 1# 19594 2130 
ERRDF 1# 19594 
ERRHRD 1# 19594 
ERROR 14 19594 
ERRSF 1# 19594 
ERRSOF 1# 8 1959% 5712 5730 
ERRTBL 1# 19594 
ESCAPE 14 19594 
EXIT 1#@ 19598 3134 4649 
FEQUAL 1# 19598 
GETBYT 1# 19598 
GETPRI 1# 19598 
GETWOR 1# 19598 
GAHANIA 14 19598 
GMANID 1#@ 1959% 3416 4551 
GAANIL 1# 19594 
GPHARD 1# 19594 4585 
GPRMA 1# 19594 34 7939 
GPRMD 14 19594 174 = §=3420 
GPRAL 14 19598 24 7944 
HEADER 14 8 81959% 1977 
INLOOP 14 19598 
IOSETU 14 19598 
IOSTAR 14 19594 
KT11 14 19598 
LASTAD 14 19598 7997 
14 1959% 4844 
MEMORY 14 19594 
MSBYTE 1 19598 197 1984 
MSCHEC 14 19598 1354 46504 
MSCNTO 14 19598 soe 45554 
MSCOUN 14 19598 on 564 
sheen 3 954 
194 S98 77a# 
49248 49398 s26e8 rts td 
MSDATA 1 19598 19 1987 
4h 13 1 174 
3 9 
MSDECR ity 9598 1144 
47304 acege S14 6 
MSDEFA 4 95 20# 8645 
MSENDE 14 19598 HAY 4 
47528 664514 7 a 
MSERRI 14 19598 7 57314 


MACY11 30A(1052)_ 23-MAR- 
CROSS REFERENCE TABLE -- 


3076 


6522 


45524 
7950 


3090 


7736 


5786 


4722 


5871 


4555 


3110 


6030 


4744 


48614 


SSVss 
RA 
Reese 


Ne 
BES 


SSSisees 


etarsa 


a 


3130 


6068 


4850 


4864 


6136 


4910 


58724 
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6289 


5875 


6407 6429s 6647 


7956 


7467 


yas 


487: 

Dd 
9 

60734 


47094 
74684 


SEQ 224 


7485 


G 2 
















SEQ 225 
CZDCLA DUP-11 _ com LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 228 
CZDCLA.P11 1 18:19 CROSS REFERENCE TABLE -- MACRO NAMES 
MSESCA 1# 19598 
MSESCS 1# 19594 
MSEXCP 14 19598 45554 ree oad 58754 S74 
MSEXIT 1# 19594 1354 46504 4651 4 Oe 45@ 48514 4852 49718 4912 
MSEXSE 14 19594 1354 46504 47024 $f6 114 . 
MSEXTJ 1# 19594 1354 3 z8 465 4702a 454 4746 48514 49118 
MSGEN 1#@ 19598 19784 19874 19898 19914 9974 19998 Ooty 00 74 
114 it 4 15@ 20174 2019% 20214 0294 20314 20334 20354 20374 3 Vw 
0434 0474 94 20514 20534 bed 14 20 ph 1144 114 
ole 37a 504 544 pre 7a 0914 1014 1114 1 1314 $! 2444 
3405# 86444688 = 44584 resi 44 45604 34 47 47194 47 47414 47528 
47684 rea 3 ged ¥ 64514 64894 7737#@ = =67899% )=— 79198 80014 
MSGENB 14 19598 174 1 45524 4553 8724 73 
MSGETS 1#@ 19598 21148 504 ; 30774 1314 448 44584 44754 46574 46734 47098 
47308 47528 318 65234 737# = 78998 0034 
MSGETT 14 19598 1354 46508 47024 47234 49114 94 79554 
14 19598 19614 19784 19874 19894 19954 19974 19994 
20094 11@ 20134 20154 20174 20194 0274 20 0314 
i 34 sie bed Sosie 0494 20514 0574 2059% 20614 
114 4h 374 54a 74 1204 321 44484 
47418 63584 64894 76144 184 001 
MSGNIN 1959# 197 1979 1980 1981 844 819854 19 
199 199 1 19954 1996 998 0014 
20074 $o08 soit 0114 014 0154 2016 
$066 7 0244 202 0264 aay" 2 314 
20374 0394 Siete 0414 4 0454 2046 
052 0534 2054 05 926 0594 2060 0614 
12 14 24 $6 bE 0414 1 @ 0434 
514 564 57a 84 3059 06 AA 
784 30834 30844 854 pyr 089 $7 0 
109 1124 1224 1234 1244 4 16 $3 
3604 33614 364 370 3714 ¢ 
174 1 1 344 354 
46 4 507# 3508 504 
5654 35 7 5884 
O* 68 5 
1 & 34 & 
94 998 
1 rai 2 
7614 # 
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SSMS eeyS 
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PRRRSK 
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wi = 


See 
SEGUE 
eects 
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SENEE 
SORURES 
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CZDCLA_DUP-11 DATA COMM. LINK TEST MACY11 30A(1052) 23-MAR-82 16:47 PAGE 229 
CZOCLA.P11 1 “82 18:19 CROSS REFERENCE TABLE -- MACRO NAMES 


We a a ae ae ae ee ge 


SEQ 226 


oo Oe ie ine 
& 
47a 7a 4 1 72n 748 8658754 5876 
os : 8 3 a 38 5394 354 56 3 § 3 567 e0e08 60314 
60324 605 oA pathy 60714 60728 pos # 61148 61374 61 “ Hy 614 oe Eh 
1 t] 34 8664 64108 64114 6431 643528 64 1# 86645 § $ 24 
g 748 17a 348 ete rtrd 6514 $7) i O* 444 tte 9234 $965 1534 24 
3034 4 ad 4 4708 74718 7% 4874 4894 7374 867738 78864 
79184 79 79 79354 7937 79 OF 7941 3 79454 
794 794 795148 8679 7953. 7955 79578 7958 7961 79984 80004 
foe 4 bb 34178 = 342 4552e 60 48614 4869 58724 5880 
MSGNTA 1 19598 21148 778 1#@ «631118 «631314 =—32444 «44584 «(46574 «646734 86047098 §=— 47308 
ol GR ibe Hie Se US BU 
MSGNTE 1959# 47684 
MSHINAP \e 19308 19784 17 
minch oe Wee Utes Gitte wes He Hee ie teas tone toe ate ee tte 
336 a oy az abe ity 4 35 754 894 7024 «8637154 7234 7308 
(2 | Ht 4 9448 41434 1908 43264 44598 
44918 4% 45014 45068 4512c# 45 45334 45454 45524 4561 45674 458784 46264 
3# py ot ry or 6584 46694 46744 sa 4 46998 47024 47108 719% 8647318 38647418 3847534 
47684 47698 4 482 48354 48454 48514 48614 4871 48814 4 49114 49284 
4985#@ SO085# 51584 520 52334 Mise 53554 S372# 571 57314 57444 57878 S842 S872e 5881 
59398 5 60204 60314 754 or ine $} 374 =6 62784 ted OE 8 64084 65744 
ms2088 esis $63 “od 664 69234 1534 S# 7468 74864 76144 864 79184 
MSLDRO 14 8619598 44954 45008 45054 45114 4522# 4532# 45864 46474 46874 
MSMASK 1# 19598 
MSMCHI 14 19598 
a 
MSPOP ‘ hd Het else 44584 4475# 4657# 46734 47094 
mmm ade tee ane tae ie Hae ae 
ate 33 77a 47 e pes trd o87ee 7th 
49248 49398 49654 9# S8394 59 5 
MSPUSH 14 19614 198 44488 44688 44848 466 
47198 47418 
mon dt Mee He aes ae ae Ba 
198 33 98 a4 45644 ace on 4 & 
rd 38 4 39634 52008 5 5 53524 53698 
MSPUT1 tl roar of : ad 138 71 T¢ 
369 0 
585 5 Cd é ; 2. is 280 ree 
ah 1 7 a4) 765 ie 
a 413 4 ale 41728 
41 4174 ‘175 & 4565 ze 4 - 
462 # 463 4 48254 283 48518 2833 








1 2 





SEQ 227 
CZDCLA_DUP=-11 DATA COMM. LINK TEST MACY11 30A(1052)_ 23-MAR-82 16:47 PAGE 230 
CZDCLA.P11 19-MAR=82 18:19 CROSS REFERENCE TABLE -- MACRO NAMES 
4833 4834 a3. 4879 5082. 488 rtrd 4925 49 § 49398 $368, 4941 $5638 $366 4967 
49818 4 4 50814 8 153@ $154 51 436 0 5201 5 5231 53034 
Se S390 $35 53694 38 j 3835" 3820 303or 5937 3 Sea 69194 3520 6921 6922 
a_i 4 Ub eh ed 34204 45554 48644 58754 79354 79408 79454 79514 7957# 
MSRNRO 1@ 8 1959% 4522 4524 45324 4534 4588 
MSSETS 1# 1959% 19614 20864 793 # 30544 0814 31014 31208 3219% 44488 44684 44848 46694 
46834 47198 47418 47694 84 64894 9184 
MSSTAR 1# 19598 
MSSVC 1#@ 19598 394 7 S0# 3051 O66 ogse 74 778 7 34 
1034 108 1114 1224 1314 1 Se 1354 
371 174 37 4 4 507 55 553 5644 356 
> 5954 soe 1 oA tee anes 89 974 §=3702 7114 
71 7448 3750 had 64 ? 904 94 998 7908 38194 t, 394 
3842 7 7a 89 Hy 74 9418 3944 thy 4 4143 4172 =64180 432 
& 4369 44584 4459 44918 44954 45004 4501 45054 45 45114 4512 4266" 452 
45 4533 45454 45528 $2008 $267 4587 46224 4626 463524 $638 reed va 
ro SO# 46574 $63 48 34 rt} 4 46998 4 4 47 4710. 47234 47308 4731 
474 4752#@ 864753 & 86 48254 48314 4835 484 48514 48614 48 pie} 48874 
49118 492468 492 4939# 494 4969 $3514 4985 50814 308? 3}; 5158  S200# 
5203 io ed 5233 $30 5306 53524 53694 53 ¢ 5713. $731 5744 787) 0 5839# =— 584 
58724 659364 5939. 5 966 9 $07 # 61144 6137 784 ota 08 64 
65748 66174 8 9198 69. # 05 468 486 8 
MSTLAB 19598 Sif 7 sty a K's 74 1124 ieee 1 3634 
3714 094 174 378 478 074 674 884 024 4 See 702 
7154 7234 7504 7644 a ¢ Ld 928 9448 414 41804 
& 43698 44598 44918 44968 45014 45128 236 45334 454 +3268 45674 45878 46264 
34 46484 46504 46584 46744 787 47024 847108 47318 475 ph 7d $56 48354 
48458 48514 48614 48814 $8 49114 49438 49698 49854 5085# 51584 520 52 53064 
53558 53728 57134 57314 57448 57874 58724 59394 60508 ed 98 7H rd 
ole 62904 64 5744 692 1 S# 74684 
MSTSTL 1# 19598 7a Ld ie 84 & 1 1124 1284 132¢@ 33634 
714 30 i 74 7a 474 7& 7 : be 3 14 524 ar 37028 
154 7234 7504 7798 i 928 ctaee 41804 
& 43698 44598 44918 pets 14 45014 451 4 3 45334 454 23284 23078 45874 a 
46 46434 504 5 998 4 oa 47108 47318 475 4 rd & é 
S1#@ 48614 48814 48908 49114 & $38 49854 5085# 51584 520 5 
53554 $5 yA 57134 57314 57444 57878 587, 59398 23868 ted 4d 1144 
olny 62908 64 64304 65744 69 1 S# 746684 74868 
MSWORD 1# 19594 174 26 728 74 174 19 2 4552@ 4554 4555# 4 
47238 47454 ao14 eats § 4 713#@ 5714 71 ; 33 wa § 5 : oe 
57448 5745 5746 «= 5747 S787H 5 287 * 74 7 14 60 60 6034 
i ue os me ie RAY il 
jE a ee 
NODC. 19654 595" 0g" 97 79 799 1 0 7 808 
ae ee ee ee eee 
827 Bey } 3 3 844 
849 1 ; : 9 1 867 
868 44 14 6 . 7? 1 886 
3 8S aR % + os i: 
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CZDCLA_DUP-11 DATA com LINK TEST MACY11_ 30A(1052) tp peep °F mY 47_ PAGE 231 
CZDCLA.P11 19=MAR=82 18:19 CROSS REFERENCE TABLE -- O NAMES 


me He ie ee es . Gigs fig Sieh Seb es tg rh 
er HOHE HE OE ses pare sang Sams sug gga 


7 
? 94 3619 3648 3671 3681 3696 «8637100 3717357435757 = 5772 


SEQ 228 


be 


ay 
— 
z 
= 
wn" 
ans 
Aan 
ca 
~ 
~vOO 
at 
WW 
“tvtie 
000 


28 


38 


3 

Ks 

PETE T SESE TELE 
g 


38 
4494 4499 4504 4510 


4646 4686 
4631 4638 4830 6918 


Ed 46504 47024 47234 474654 48518 49114 


ee ee eee eT 
WOOOOOOOOOO0DO 
VVMIMIVIMIMIIIAaan 


8 


- ABS. 046616 


ERRORS DETECTED: 0 
CZDCLA, A-CZDCLA LST/CRE/SOL=SVC34R.MLB,CZDCLA.P11 
RUN-T1 34 4 E COND 


RUN-TIME RATIO: $17 


CORE USED: 22k (4 PAGES) 








